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Introduction 


This is a collection of twenty-one games written to be played on your 
16K or 48K Oric. Every game is complete in itself so youcan turn to 
whichever one takes your fancy, type it in and play it. We’ve tried to 
include something for everyone and each one has its own detailed 
description so that you’ll know what to expect before you embark on 
it. You also have a chance to see what to expect as there are samples 
of the displays produced on your TV screen. Of course these cannot 
really do justice to many of the programs which use colour graphics 
~—and we cannot find any way of letting you hear the accompanying 
sound effects. 

All the games are written in BASIC and, presented in this form, 
they serve a dual purpose. Typing in games for yourself is a good 
way to absorb BASIC. If you are a beginner you will soon become 
familiar with its syntax and structure and if you already have some 
experience you will quickly pick up some handy techniques that you 
can incorporate into your own programs. 

If you are not very experienced in using your Oric, try typing in 
the shorter programs first. Our only advice is to save your programs 
often and make more than one copy when you do so - we normally 
save each version three times — including a copy at the slower speed. 
Save the version you expect to be the final one before you attempt to 
RUN the program. Also, do not let your Oric overheat. If it gets too 
warm, save your program and go for a break yourself, switching 
your Oric off to let it have a rest too. Never leave your machine 
switched on unused for a long period. 


What's to follow 


It’s really impossible to indicate the range of programs included in 
this book as they do not fall into neat categories. Of the twenty-one 
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programs about two-thirds can be described as moving graphics 
games. Some of these are variations on familiar favourites, for 
example Alien Invaders, Rainbow Squash and Bobsleigh. Others 
have titles that probably won’t ring any bells —- Sheepdog Trials, 
Commando Jump and Across the Ravine — but we hope they will 
soon become popular once you start to play them. Laser Attack and 
Mighty Missile are both ‘zap-the-enemy’ type games with special 
features that make them very different from others we’ve played. 
Treasure Island is another program that is out of the ordinary. Itisa 
game that tests your memory and relies on a variety of interesting 
graphics technniques. Oric Ledger presents a horse race run to a 
familiar and appropriate tune and Capture the Quark is a board 
game in which you play against the computer on an eight-by-eight 
grid. There are also some programs for traditional pastimes —- Magic 
Dice, Noughts and Crosses, Word Scramble and Mirror Tile all 
come into this category. Oric Oracle is a rather unusual program 
that enables your Oric to hold a conversation with you. If you think 
we are joking you'll have to try it for yourself. 

All the programs in this book run on either a 48K ora 16K Oric. 
However, when you try to enter ‘Oric Oracle’ ona 16K Oric you will 
find you run out of memory. There is a simple remedy for this which 
involves using the memory normally set aside for the high resolution 
graphics screen and details of this are given in the program 
description. 


Improve your programming 


This book isn’t however intended as just another collection of 
programs. As well as providing programs that you can have 
hours of fun with we also hope to cater for all Oric owners by 
presenting a book that can be used in more than one way. True, you 
can use it simply as a source of exciting games programs, but on the 
other hand you can use it to further improve your own knowledge of 
BASIC programming. Each program is accompanied by an outline 
of its subroutine structure, details of special programming 
techniques and suggestions for further improvements. These 
sections are included for those of you who want to develop your own 
programming skills. By giving away some of our trade secrets we 
hope that you'll be able to extend your range of techniques. 

It is because we would like to be able to help you experiment with 
your own programming that all these games stick to BASIC. This 
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means, of course, that the games cannot be as fast-moving or as 
complicated as the ones that are available pre-programmed on 
cassettes which are written in machine code. But if you want to learn 
to write your own programs it is far easier to start with BASIC than 
to attempt to come to terms with machine code. 


Perfect programming 


The programs included have all been extensively tested in the form 
in which they appear and then printed out directly from working 
versions. This means that if you type in exactly what is printed in this 
book every program should work for you every time yourunit. You 
will no doubt quickly notice that the programs in this book are not 
neatly numbered in even steps. The reason for the uneven line 
numbering employed is that the Oric does not have a line 
renumbering facility and although it is tempting to neaten up the line 
numbers as you type the programs back in we strongly advise 
against it. All sorts of errors can creep in as a result and it will be 
much more difficult to trace them if you deviate from the listings. 

However careful you are, it’s almost impossible to avoid 
introducing bugs when you re-enter a program - so if a program 
won’t work when you’ve typed in it check it against the listing and if 
it still won’t work have a cup of tea and check again - it’s all too easy 
to read what you think should be there rather than what is there! If 
there are any particular points to look out for when entering a 
program you'll be alerted to them in the section on Typing Tips. 
Common sources of possible errors are, confusing full stops and 
commas or semi-colons and colons, omitting brackets (or putting in 
extra ones) or mis-reading less than and greater than symbols - 
getting these round the wrong way will lead to chaotic results. 

If you do get an error message when you try to RUN a program, 
don’t just give up but use the information it gives you to trace your 
mistake. The error will not necessarily be in the line whose number is 
reported but that line will try to use some part of the program with 
the bug in it. If the line uses a variable or an array check to see if it 
was defined properly. If the line identified goes to another part of the 
program or calls a procedure or a subroutine make sure that section 
is complete. 
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Cassette tapes 


Typing in long programs can be a very frustrating business. It’s not 
easy to avoid typing mistakes altogether and there is always the risk 
that you'll lose your program before you’ve saved it after hours of 
careful effort — it’s far too easy to disconnect your power supply and 
you can’t guard against thunderstorms or other sources of voltage 
fluctuations without great expense! Many of the programs in this 
book are indeed long. This is unavoidable as the games concerned 
include lots of features. But you can avoid having to type them all in 
for yourselves. The programs, exactly as listed here, are available on 
a pair of cassette tapes. For full details and an order form send a 
stamped, self-addressed envelope to 


RAMSOFT, 
P.O. Box 6, 
Richmond, 
North Yorkshire, 
DLI10 4HL. 
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If you’ve ever watched a shepherd and his dog coax a flock of sheep 
into a pen you’re bound to agree that its a quite astounding feat. The 
experienced shepherd makes it all look so effortless as he shouts and 
whistles commands to his dog who, obediently stands his ground, or 
edges up a few paces, or runs around the back of the flock to head off 
a straggler. 

This game is an extremely realistic simulation. In fact it’s so true- 
to-life that the only person we know who’s scored a “Super 
Shepherd” rating was a real sheep farmer!! Five fluffy white sheep 
and a dog appear in a green field surrounded by a picket fence — it 
creates just the right country atmosphere. 


How to play 


The object of the game is to herd all five sheep into the pen at the top 
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right-hand side of their field in the minimum number of moves. To 
do this you have to control the dog by using the arrow keys. If the dog 
approaches too close to the sheep they will scatter (they may also 
scatter randomly during the course of the game just to complicate 
matters). In normal play neither the dog nor the sheep are allowed to 
cross any fences, although when they scatter the sheep may jump out 
of the pen. There will always bea total of five sheep but if they crowd 
very close together they will appear to merge into one another. 
Once you’ve played this game a few times you'll realise that some 
strategies for controlling the sheep work better than others. 
Beginners tend to waste moves trying to manoeuvre the dog around 
the back of the flock. However, to achieve the title of “Super 
Shepherd” or “Good dog” you'll need to make every move count. 


Typing tips 


The hash character is used to print the fence in subroutine 800. It is 
produced by typing the 3 key with the ‘SHIFT’ key held down. The 
only other printing feature to look out for is the single space 
enclosed in double quotes in lines 1600 and 7180. These are used to 
blank out the previous positions of the dog and the sheep 
respectively. 


Subroutine structure 


500 Sets up graphics characters and arrays 
800 Prints fences 

1000 Prints sheep 

1100 Prints dog 

1500 Moves dog 

7000 Moves sheep and checks for end of game 

7180 Prints sheep 

8000 Scatters sheep 

9000 Prints messages and end of game 


Programming details 


When you RUN this game you may imagine that there are some 
special techniques involved to govern the movement of the sheep 
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and sheepaog. This is, however, not the case and the program 
depends entirely on calculating their positions relative to each other 
according to mathematical equations. For example, line 7040 
checks to see if the dog has approached too close to the sheep. If he 
has (or if the random number generated is less than .01, a one-in-a- 
hundred chance occurence) then the sheep scatter according to the 
equations in 8000 and 8010. IF statements are also used to make sure 
that the dog does not move into any of the picket fences or that the 
sheep do not move onto the dog or the fences. 


Scope for improvement 


If you get really proficient at this game you can try to make it more 
difficult. You might increase the chance of the sheep scattering at 
random, by altering the value of the cut-off point for the random 
number in line 7050 or you could add some obstacles such as a pond 
or a river that the sheep has to avoid or cross. 


Program 
10 REM Sheepdog Trial 


S00 CHEAS=46080 

S10 FOKE CHEAS+CASCC"R@'")xB+09,0 
520 FOKE CHBAS+CASCC"@") *B4+19,0 
S30 FOKE CHEAS+CASCC"@') KB+2),246 

S40 FPOKE CHEAS+CASCC'R@")KB4+3),63 

$50 FOKE CHBAS+CASC(C"@")*8+4),43 

960 FOKE CHEAS+CASCC"@") x*8+5),41 


S70 FOKE CHEAS+CASCC"@")*8+46),36 
S80 FOKE CHEAS+ (ASC C"@")xK8+7),36 
600 FOKE CHEAS+CASCC'A')xB8+0),0 
610 FOKE CHEAS+CASCC"A" )x841),1 
620 FOKE CHBAS+CASCO"4S" )xK8+2), 3 
630 FOKE CHEAS+CASC C'S" )X8+3),29 
640 FOKE CHBAS+CASCCO'A“' )xX8+4), 28 


650 FPOKE CHBAS+CASCC"A“')K8+4+5),36 
660 FOKE CHBAS+CASCC"4" )x8+6),18 
670 FOKE CHBAS+CASCC'4" )x8+7),0 


710 DIM X(S) 
720 M=0 
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800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
700 
910 
920 
930 
940 
9&0 
970 
780 
2? 


1000 
1010 
1020 
1030 
1040 


1100 
1110 
1120 


PAPER 23INK 7 
CLS3FRINT CHR$(17) 
FOR X=1 TO 15 
PLOT X,16,"#" 
NEXT X 

FOR Y=0 TO 16 
PLOT 16,Y,"#" 
NEXT Y 

FOR Y=0 TO 20 
PLOT 0,Y¥,"#" 
PLOT 31,Y,"#" 
NEXT Y 

FOR X=0 TO 31 
PLOT X,0,"#" 
PLOT X,21,"#" 
NEXT X 

FOR Y=i TO 3 
PLOT 12,Y,"#" 
NEXT Y 


FOR S=1 TO 5 
Y¥C(SdHS+tINTCRND CL) *x10) 
X(S) 24+ TNTCRND CLI x6 > 
FLOT X(S),Y¢S),"@" 
NEXT $ 


YD#1+INTCRND C1) *3) 
XD=1L+INTCRND C1) «6? 
PLOT xD,YD,;"*" 
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PINGSGET D¢ 

LF D$<2"R" THEN GOTO 1400 

PLOT 3,18,"RESIGN Y/N"iGET At 

IF A$="Y" THEN GOTO 9080 

PLOT 3,18," " 

PLOT XD,YD," " 

IF ASC(D$)=8 AND SCRN(XD-1,YD)#32 THEN XD#XD~-1 
IFASC(D$)=9 AND SCRN(XD+1,YD)#32 THEN XD#XD+1 
IF ASC(D$)=11 AND SCRN(XD,YD-1)#32 THEN YD#YD~1 


IF ASC(CD$)=10 AND SCRNCXD,YD+1)=32 THEN YD=YD+i 
FLOT XD,YD,'4" 

Meme 

M¢=STRBCM) 


IF ASCCLEFTS$(M$,1)9)257 THEN 
M$=RIGHT$(M$,LENCM$)-1)3GOTO 1675 
IF ASCCLEFTS¢(M#,192<48 THEN 
M$=RIGHT$(M$,LEN(M$)~-123GOTO 16476 
PLOT 21,14,"Move "+M% 

GOSUE 7000 


IF F=0 THEN GOTO 9000 
GOTO 1500 

Ff 

FOR S=1 TO 5 

Y=HYCS) 

X=X¢9) 


TF (ABS(X(S)-XD)<£2 AND ABSCYCS)-YD)<2) THEN 
GOSUE SO000:3;GOTO 7100 

IF RNDC1)<.01 THEN GOSUE 8000 

IF ABS CX(S$)-XD)S2+INTCRNDC1)*2) THEN GOTO 7100 
IF ABS CY(S)-YD)>2+INTCRNDC1)9«2) THEN GOTO 7100 
X(S)#X(S)+SGNCX0S)-xXD) 

Y¥C(S)#YCS)+SENCYCS)-YD) 

IF X¢S)<1 THEN X¢S)=1 

IF X¢(S)214 THEN X(5)=14 

IF YCS).<1 THEN YCS)=1 

IF Y¥(S)214 THEN Y¢S)=14 

IF X(S)2#12 AND YCS9<4 THEN X(S)=11 

IF SCRNCX(S),YCS))#35 THEN X(Sd=X3YCS)#Y3 

GOTO 7200 

IF SCRN(X(S),Y¢CS))=94 THEN X(S)=X3YCS)=¥3 

GOTO 7200 
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7180 
7190 
72.00 
7300 
7400 
7410 


8000 
8010 
8020 


9000 


7010 
9020 


9030 


7040 
9080 
9085 
9090 
9100 
9110 
9120 


PLOT Xe¥s" 

FLOT X(S),Y¢(S),"@" 

IF X€S)212 AND Y(S)<4 THEN GOTO 7400 
Fd 

NEXT § 

RE TURN 


X(S)=X(S)+(SGNCRNDC1)-.5) 2K CZ24+INTCRND CL) 2) > 
Y¥C(S)=Y(S)+¢CSGNCRNDCL)~.5)) KC 24+INTCRND C192) ) 
RETURN 


IF M240 THEN FRINT "SUPER SHEPHERD'S 
GOTO 9080 

IF M260 THEN FRINT "GOOD DOG"SGOTO 7080 
IF M290 THEN FRINT "KEEF FRACTISING': 
GOTO 7080 

IF Mf120 THEN PRINT "LEARN TO WHISTLE": 
GOTO 9080 


PRINT "HAND IN YOUR CROOK" 

FRINT “YOU TOOK "3M3"MOVES" 
FRINT CHRé¢17) 

ITNFUT "ANOTHER GAME Y/N"3 A$ 
IF Age"¥" THEN RUN 

FAPER 7 

INK 0 


2 
Magic Dice 





Before the days of the micro, family games usually meant one of two 
things — card games or board games that involved dice. In our family 
we often couldn’t find the dice and we spent ages hunting through 
drawers and cupboards before we could start our game. Equally 
often, in the excitement of the game, the dice would end up rolling 
over the floor and our game would be interrupted as we retrieved it 
from dark corners. 

You may think there’s no place for your old games of Ludo and 
Monopoly now you have a Oric to absorb you, but think again. 
They are actually very enjoyable games for lots of players especially 
if you don’t have to spend too much time hunting for the dice, or 
worse still, arguing about which way up it actually fell! Such 
problems can be solved if you let your Oric join in the game and take 
over from the dice. 

Of course, your Magic Dice can become the centre of a game. You 
can devise gambling games to play against the computer or against 
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other people. After all, dice have been around for thousands of 
years, so there must be plenty of ideas about how to use them. 

However you choose to use the program, it will give you a large 
clear display on the TV screen - colourful too if you run it ona 
colour set. Notice the realistic way the dice actually slows down 
before it comes to a final halt and the use of sound effects to 
emphasize this feature. 


How to use the program 


Using this program is simplicity itself. Type RUN and, when your 
Oric prompts, just press any key in order to start the dice rolling and 
then it carries on rolling for a random number of turns and slows 
down and stops when it is ready. The tone that sounds when the dice 
has stopped is longer than the one that accompanies each turn. 
When you’ve finished with the program press CTRL and C to stop it 
running. 


Subroutine structure 


20 Selects mode and disables cursor 
60 Set-up routine 
100 Main play loop 
260 Prints and unprints dots 
430 Draws yellow square for dice 
590 Emits beep sound 


Programming details 


The essence of a dice program is in generating random numbers. In 
fact, this program uses random numbers in two ways. Firstly, 
randomness is used in the conventional way, to determine which 
face of the dice will show at the next turn — this is done in line 190, 
which uses the RND function to select ‘R’, a number between one 
and six. This information is then used in the printing subroutine 
(starting at line 260). The program goes to one of the six line 
numbers 280, 300, 330, 350, 380 and 400, according to the value of 
*R’, obeying a computed GOTO instruction which has the syntax 


ON (result of arithmetic expression) GOTO 
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At 280 one dot is printed, at 300 two dots are printed and so on. The 
other use of the random number generator is to give the dice realistic 
suspense. When a human throws a dice it will turn just a few times or 
quite a number of times, and before it actually stops it will slow 
down. This program copies both these features by incorporating 
lines 130 and 140-220. Another random number, ‘T’, with a value 
between 5 and 8 is selected. This governs the numbers of turns the 
dice makes and each time it rolls over the pause before the dots re- 
appear lengthens. 


Program 
10 REM Dice 


20 FAFER 4 
30 INK 3 
40 CLS 

%0 HIRES 


60 GOSUB 430 
70 FRINT CHRS¢4); 
80 FRINT "PRESS ANY KEY TO THROW" 


100 IF KEY$=""" THEN GOTO 100 
130 T=INTCRNDC1)«3) +45 
140 FOR T=#1 TO T 

140 A=1 

180 GOSUB 2640 

190 ReINTCRNDC1)*6) +1 
200 A#0 

210 GOSUB 260 

220 NEXT I 

240 FING 

250 GOTO 100 
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260 
270 
280 
2970 
295 
300 
305 
310 
320 
325 
330 
340 
350 
35S 
360 
365 
370 
380 
390 
400 
405 
410 
415 
420 


430 
440 
450 
460 
480 
49) 
400 
wi10 


390 
600 
610 
620 
630 
440 


GOSUB S90 

ON & GOTO 280,300,330,350,380,400 
CURSET 73,80,1 
CHAR 120,1,A 

RE TURN 

CURSET 30,40,1 
CHAR 120,1,A8 
CURSET 98,100,1 
CHAR 120,1,A 
RETURN 

GOSUB 280 

GOTO 300 

CURSET 50,100,1 
CHAR 120,1,A 
CURSET 98,60,1 
CHAR 120,1,A 
GOTO 300 

GOSUB 350 

GOTO 280 

CURSET 73,60,1 
CHAR 120,1,A 
CURSET 73,100,1 
CHAR 120,1,A 
GOTO 350 


REM SETUF 

fess] 

CURSET 50,50,0 
FILL 70,110,127 
FAFER 4 

INK 3 

SOUND 4,5,15 
GOTO 240 


SOUND 4,5,15 
PLAY 0,51,0,0 
WAIT 1 

PLAY 0,0,0,0 
WAIT IxKZ 
RETURN 


3 
Capture the Quark 


“8 2 8 
Sou 


Your Move 





What on earth is a ‘quark’? Well may you ask that question but to 
find out you'll have to play this game. Here are just a few clues. The 
game is played on an eight-by-eight checkered board and the object 
of the game is to trap the quark and prevent him from reaching the 
bottom of the board. To do this you have two, three or four 
(determined at random) pieces, or ‘quatlins’ which can be moved 
diagonally one square at a time and only up the board. The quark 
also moves diagonally but he can move both forwards and 
backwards. 


How to play 


At the beginning of the game your quatlins (two, three or four of 
them according to the luck of the draw) are ranged along the bottom 
line and the quark is at the top of the board. It is your move first. 
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You'll notice that one of your quatlins is displayed in reverse colours 
from the rest. This is the piece that is ready to move. If you want to 
move another piece hit any key and control will pass to the next 
piece in an anti-clockwise direction. Try pressing keys to see this in 
operation. When you are ready to move a piece press the left arrow 
key if you want to move diagonally forward left and the right arrow 
key if you want to move diagonally forward right. Once you have 
moved the quark will make his move automatically and its your turn 
again. The Oric will display a message when the game is won, either 
by you or the quark but if you want to resign before this, type “R”. 
Just in case you hit this key by mistake you will be given the chance 
to reconsider and will have to answer “Y” or “N” to the question 
“Resign?” 


Typing tips 


The IF statement in line 130 look as though it’s wrong as there are no 
relational signs. It is however correct — the values stored in the array 
are either ‘1’ or ‘0’ and the Oric treats these as equivalent to ‘true’ or 
‘false’. 


Subroutine structure 


20 Initialises variables 
50 Sets up game 
90 Main play loop 
120 Quark move logic 
500 Moves quatlins and validates their moves 
650 Selects which quatlin to move 
830 Prints reversed quatlin 
890 Prints quatlin 
930 Draws board 
1120 Draws initial positions of quatlins and quark and 
initialises board 
1390 Defines graphics characters 
1590 End of game 
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Programming details 


Notice the way that subroutine 830 plots a quatlin in reverse by 
adding 128 to its ASCII code before plotting it. Both the quatlins 
and the quark are made up from four different user-defined graphics 
characters. 


Program 


10 REM Capture the Quark. 


20 DIM D(10,10) 
30 DIM X(4),YC4) 
40 DIM AC4),B¢4) 


30 GOSUB 1390 
60 GOSUB 730 
70 H=INTCRND(1)*3)+2 
80 GOSUB 1120 


90 GOSUB 450 
100 GOSUB 120 
110 GOTO 90 
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120 
130 


140 
150 
170 
180 
190 


200 
210 


220) 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
340 
370 
380 
390 
400 
410 
420 
430 
440 
4350 


440 
470 


480 
490 


FLOYT 1,21,"Quarks Move" 

TF DCOT+2,QU+2) AND DCQT+#2,QU) AND DCQT,QJ+2) 
AND DCQT,QJ) THEN GOTO 1590 

M=1 

COSUE 400 

TF QI+N<1 OR QI+N>8 THEN GOTO 200 

TIF DCQI+N+1,Q0+M+1> THEN GOSUE 330 

IF DCQT+N+2,Q04+M+2)=1 AND DCQT4+N, QU+M+2) 21 
AND QJ<7 AND QJ>1 THEN M=-M 

IF DCQL+nN+1,QU+M+1>) THEN GOSUB 330 

TF OF=QI AND OJ=QJ THEN M=-MiN=SGNCRNDC1)-. 5) 
s;GOTO 170 

OL=QL3 0-00 

FLOT QX,QY," "SFLOT QxX,QY¥t1,"  " 
QX=QX+NK2 

QY=QY+Mx*2 

FLOT QX,QY,"!'@"SFLOT QX,QY¥+1, "#6" 
DCQT4+N+1,Q04+M+1) 22 

DCAT+1,Q3+1)=0 

QT=QT+N 

QJ=QJ+M 

IF QJ=#8 THEN GOTO 16410 

RETURN 

Nis NM 

IF DC QT+n+1 ,QU+Mt+ deo THEN RETURN 
Mae M 

IF QU4 THEN N=] 

TIF DCQT+N+1,Q04+M+1l)<21 THEN RETURN 
Nos 

RETURN 

N= (QI5 )- (QT #S) 

R=RND C1) 

IF QJ246 THEN RETURN 

IF R>.S AND QI>3 THEN COTO 470 

IF QIs7 THEN GOTO 440 

IF (D¢CQI+3,QJ+3)=0 OR DCQT+2,Q04+3)=0) 
AND DCQI+2,QJ+2)=0 THEN N=1 3 RETURN 

IF QT<4 OR R=.S THEN RETURN 

TIF (D¢QI-3,Qd+3)=0 OR DCQI-2,Q3+3)=0) 
AND DCQI-2,Q3+2)20 THEN N=1 3 RETURN 

IF k>.S THEN GOTO 440 

RETURN 


S00 
o10 
u20 
330 
340 
oo0 
340 
370 
380 


600 
610 

20 
630 
640 


650 


820 
830 
850 
880 


890 
910 


920 
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A CHM) =A CHM) +M 

B CHM) =EB CHM) ~1 

IF DCACHM) +1,6°CHM)+1)<>0 THEN GOTO 540 
DCACHM) ~M+1,B CHM) +2)=0 
DCACHM) +1, 8 CHM) +1 >=1 
GOTO 4600 

ACHM)=ACHM) -M 

B CHM) =6 CHM) +1 

FING 

GOTO 640 

PLOT XCHM),YCHM)," "3 
PLOT XCHM),YCHM)+1," " 
Y CHM) =Y CHM) <2 

X CHM) =X CHM) +M*2 

GOSUB 830 

RE TURN 


FLOT 1,21,"Your move ut 

FING 

GET M¢ 

IF M#="R" THEN GOTO 750 

TF ASCCM#$)=8 THEN M=-13GOTO Soa 
TF ASC(M$)=9 THEN M=+13G0TO S00 
GOSUE 780 

GOTO 450 

INFUT "Resiam Y/N" 3A 

TF Age"Y¥" THEN GOTO 16410 

GOTQ 650 

GOSUB 890 

HMe=HM-+ 1 

IF HMSH THEN HM=1 

GOSUB 830 

RE TURN 


FLOT XCHM) ,YCHM) ,ASCCUA') +1283 
PLOT XCHM) +1, Y CHM) ,ASCC'A') 4128 
PLOT XCHM),YCHM) +1, ASC CUR") 41283 
FLOT XCHM) +1, YCHM)+1,ASCCUxK") +4 
RETURN 


REM FRINT QUATLIN 

FLOT XCHM) »YCHM) »"“2A''S 
FLOT XCHM) ,»YCHM) +1, "8x" 
RETURN 
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930 

940 

950 

9640 

970 

980 
1000 
1010 
1020 
1030 
1040 
1050 
1040 
1070 
1110 
1120 
1130 
1140 
1150 
1140 
L170 
1180 
1190 
L200 
1210 
1220 
1230 
1240 
1250 
1240 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 


CLS 

KeZ 

FOR I=1 TO 4 

FOR J=1 TO 4 

PLOT 443"4,K+1," CC 
FLOT 4+3K4,K4T4+1," CC" 
NEXT J 

eke? 

FOR J=1 TO 4 

PLOT 4+JUK4,K4I,"CC " 
PLOT 4+3K4,K+T+1,"C0 . 
NEXT J 

Kek+1 

NEXT I 

RE TURN 

REM START 

FOR I=1 TO H 

XE ITK4+H 

PLOT X,17,"424"3PLOT X,18,"%8x" 
DC IK2+1,9) 21 

ACT) =X 

YOTD #17 

Hite 

ACI) =ITK2 

BCT) =8 

NEXT I 

GOSUE 830 

QT=5 

QJ=1 

QX=QIK2+6 

QY=3 

PLOT QX,QY,"!@"SFLOT QX,QY+1,"#b" 
FOR Ist TO 10 
D¢L,1)=] 

Dcl,D #1 

D¢c10,D)=1 

D¢T,10)=1 

NEXT I 

DCQLT+1, Qu+1)=2 

OT=0 

OJ=0 

RETURN 


1390 
1400 
1410 
1420 
1430 
1440 
1450 
1440 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 


1590 
1600 
1610 
1420 
1630 
1440 
1650 
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REM INIT 

CH=46080 

FOR Q=1 TO 9? 

READ C 

FOR I=0 TO 7 

READ D 

FOKE CH+C+I,D 

NEXT I 

NEXT Q 

DATA 728,42,21,42,21,42,21,42,21 
DATA 264,0,0,7,15,43,51,51,63 
DATA 312,0,0,54,62,63,51,51,63 
DATA 280,463,43,31,15,7,3,1,0 
DATA 288,63,63,42,60,56,48,32,0 
DATA 294,0,0,15,31,31,63,59,51 
DATA 304,51,51,51,51,3,3,3,0 
DATA 752,0,0,60,42,62,63,55,55 
DATA 3346,51,51,51,51,48,48,48,0 
CLSSFPRINT CHRE (17) 3 

RE TURN 


FLOYT 1,21,"You win ' 

GOTO 1620 

FLOT 1,21,"Quark wins . 

FRINT CHRé¢1L7)>33INFUT "Another game "SAG 
IF Ag="Y¥"' THEN RUN 

CLS 

STOF 
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WHICH HORSE DO YOU WANT TO BET ON? 





This is a very simple betting game with an impressive and convincing 
horse race display plus an appropriate musical accompaniment. The 
tune is ‘Camptown Races’ and if you’ve ever,heard it before you’re 
sure to recognise it. If you want to show off the graphics and sound 
capabilities of your Oric this program provides a good demonstration. 


How to play 


At the beginning of the game you are allocated a hundred chips. You 
have to bet on which horse will come in first and must decide how 
much to stake. The odds are 5 to 1, so if you win having placed 20 you 
will receive 100. The Oric keeps a tally of your winnings and losses 
and will tell you if you go broke. During the race, your horse is the 
white one but as the race is run automatically and at random so 
there’s nothing you can do to make your horse win except cheer it 


along! 
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Typing tips 


Pay very careful attention when entering the numbers in the DATA 
statements in subroutine 6000. If you make mistakes in typing in this 
subroutine, the program may still run but the tune may be 
unrecognisable or sound discordant! The character between quotes 
in lines 1070 and 1080 is the hash symbol (which you produce by 
typing SHIFT and 3 together). You'll find the Oric’s edit facility 
useful for entering lines 510 to 580 which all start in a similar way. 


Subroutine structure 


500 Defines graphics character for horse 
600 Set up routine 

1060 Prints race course 

1500 Prints horses 

1550 Runs race 

2000 Title frame 

3000 Betting routine 

4000 Moves horses 

5000 Plays whole tune 

6000 Plays one note of tune 

8000 Win/lose routine 

8500 Move cursor to position 

8600 Removes control codes from string M$ 

9000 End of game 


Programming details 


This is the only program in this collection that plays a tune so it is 
worth drawing your attention to the details of lines 6000-6080. 
Think of these DATA statements as being made up of a pair of 
values. The first in each pair relates to the pitch of the note and the 
second to the length of time it is sounded for. This second value is 
typically 10, 5 or 2- representing a minim, a crochet or a semiquaver 
respectively. The number —99 crops up instead of a pitch value every 
so often. The effect of this is to cause a rest, or pause in the music. 
Line 6080 signals the end of the tune. After detecting 99,99 the 
program resets the DATA statements so that next time round the 
tune starts playing from the beginning. At the beginning of the game 
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the tune is produced by calling subroutine 5000 which plays all the 
notes one after the other. However, because the Oric cannot do two 
things at once - it can’t play a note and move the horses — the notes of 
the tune are produced by a call directly to subroutine 6000, which 
plays one note in the tune and then moves the pointer to the next 
note so that the next time it is called the next note is played. To 
synchronize the sound and the movement, the horses are moved 
then subroutine 6000 is called to play a note, the horses are moved 
again, another note is played and so on. The result is a sequence of 
notes with longer than normal rests between them but, because it 
does not take much time to move the horses, you still get the 
impression of a tune being played. You can use this technique in 
other games but, if the amount of calculation that you have to do 
between calling each note becomes too long, you'll no longer be able 
to hear the tune. 

Subroutine 8600 is used to remove the attribute codes that the 
Oric places in front of the string of digits returned by the STR$ 
function. 


Scope for improvement 


If you get tired of ‘Camptown Races’ as the background music you 
can substitute any tune you like. You could use the same graphics for 
a horse race program in which the player controlled one horse and 
tried to beat the rest of the field. 


Program 


10 REM Ledger 


S00 CHEAS=46080 

S10 FOKE CHBAS+CASCC'@'")x*B+0), 0 
S20 FPOKE CHEAS+CASCC'@")x8+1),2 
530 POKE CHBAS+CASCC"@")x8+2),10 
540 FOKE CHBAS+CASC('@")x*84+3),61 
S40 POKE CHBAS+CASCC"@" )xX8+4),28 
540 FOKE CHBAS+(CASCC'@")x*84+5),18 
570 FPOKE CHBAS+CASC('@")x8+46),33 
S80 POKE CHEAS+CASCC'"@")x8+7),0 


600 
610 
20 
1000 
1010 
1030 
1040 
1050 


1040 
1070 
1080 
1090 
LLO0 
1110 
1120 


1500 
1510 
1520 
1530 
1540 


1550 


1560 


2000 
2010 
2020 
2030 
2040 


2050 
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TEXT 

GOSUB S000 
SUM=100 
DIM X¢(S) 
DIM YS) 
CLS 

PAPER 2 
INK 0 


FOR X#0 TO 31 
PLOT X,1,#" 
PLOT X,11,'#" 
NEXT X 

FOR Y=2 TO 10 
PLOT S1sYe"4"' 
NEXT Y 


FOR Yl TO S 

XCY) #2 

YOY) #YK2 

PLOT XCY),YCY),"@" 
NEXT Y 


GOSUB 3000 
GOSUB 4000 
GOTO 1560 


INK 7 
PAPER 2 

PRINT CHR&(17) 

CLS 

FLOT 7,4,5°0 R TC LEDGE R" 
RE TURN 
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3000 
3005 
3010 


3015 
3020 
3025 
3024 
3030 


3040 


3050 


4000 
4010 
4050 
4040 
4070 
4080 
#09) 
4100 


S000 
wO20 
3030 
2040 
9050 
S040 
4070 
S080 


PLOT 1,15, “WHICH HORSE DO YOU WANT TO BET ON 
ROW=1S53COL#33:COSUB SS003INFUT & 
IF Bel OR BSS THEN PLOT 1,14,"NO SUCH HORSE" 
*GOTO 3000 
PLOT Le VCels 
M$="YOU HAVE "+STR&(SUM)iGOSUB 8400 
PLOT 1,17,M% 
COL#303ROW=183GOSUEB 8500 
PLOT 1,18, "HOW MUCH DO YOU WANT TO BET" 
sINFUT M 
IF SUM-M<0 THEN PLOT 1,19, "YOU DON’T 
HAVE THAT MUCH"?GOTO 3024 
SUM=SUM—-M 


Z#INT CRND CL) KS) +1 

PLOT X¢2), 7029," " 
XCZI#XCZI+ CL +RND CLIK. 4) 
PLOT X02) 9 Yee ee 

ITF X¢€Z9230 THEN GOTO 8000 
GOSUE 4000 

IF T#99 THEN RESTORE 

FEES TURN 


GOSUB 2000 
Ee} 


GOSUE 6000 

IF T#99 THEN RESTORE? RETURN 
FLOT I,15," @" 

FOR G1 TO LO3NEXT Q 

T=I+.6 

GOTQ 3030 


6000 


6010 
6020 
6030 
6040 
6050 
6040 
6070 
6080 
6090 
6100 
6120 
6130 
6140 
6150 
6140 
6170 
6180 


8000 


8020 
8030 


8040 
8050 
8060 


8500 
8510 
8520 


84600 
8610 
8420 
8430 
8640 
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DATA Po Fo Pee P eo Se Geto Pe Fells Ses Gy by Gy PP, 
Se 6959451556,5,4,10 

DATA Po Se9 Sebo FoF se Sed) 5559.5 655 

DATA coh a ae A ae A Ae A A Me] 
DATA ~O9 105257 92529 be 97959 14,15 

DATA ~99 .8511575,1152514,5,11,5,9,15 

DATA e257 92599 Te P eT e by 2eGye 

DATA 952595251155 59,5,6,10 


DATA 4659695979 256559 45294,2,2,15 


DATA 99,99 

READ FT 

IF T=99 THEN RETURN 

IF F=-99 THEN WAIT TxS3 RETURN 


IF P>i2 THEN MUSIC 1,4,F-12,0:GOTO 6150 
MUSIC 1,3,F,0 

PLAY 1,0,3,1500 

WAIT T 

FLAY 0,0,0,0 

RETURN | 


IF Z=B THEN M#="YOU WIN "+STR#CINT CSM) D 
$SUM=SUM+INT CSM) 

IF Z2>B THEN M$="YOU LOSE "+STR#¢M) 

IF SUM*=0 THEN M$="YOU’RE BROKE" 

*GOSUB S400¢3FLOT 1,23,M$3STOF 

GOSUB 8600 

PLOT 1,22,M% 

GOTO 7000 


DOKE #12,48040+ROWK40+COL 
POKE #248,ROW+1 
RE TURN 


J=1 
IF J=LEN(M$) THEN RETURN 

IF ASC(MID$(M$,J,1))231 THEN J#J+1iGOTO 8410 
M$=LEFTS (M$, J~1)+MID$(M$,U+1) 

GOTO 8610 
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7000 
9010 
9015 
9020 
9030 
9040 
9050 
7040 
9070 
9080 


M$="YOU HAVE "4+STR$(SUM)+" ANOTHER RACE Y/i 
GOSUB 84003PLOT 1,23,M% 

GET AG 

RESTORE 

IF A$="Y" THEN GOTO 1030 

IF A$<>"N" THEN GOTO 9000 

FAPER 7 

FRINT CHRé¢17) 

CLS 

STOF 


5 
Across the Ravine 


nen left aen ecross aen lost 





Have you got the skill and judgement needed to lead an expedition 
through dangerous terrain? This colour graphics game provides an 
easy way to discover your potential. The object of the game is to get 
your party of five intrepid explorers across a deep ravine with a fast 
flowing river at the bottom of steep cliffs. There is only one option, 
to swing across ona rope. The rope swings all the time so each man 
must run and leap to catch it - anyone who mistimes his jump falls 
into the river and is lost. Listen out for the sound effects as a man 
falls towards the river! The Oric’s EXPLODE command provides a 
realistic splash sound. 


How to play 


This game is all a matter of timing - you have to judge when to start 
each run for the rope. It is vital to catch the rope on the downswing 
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and each man can jump approximately his own width. You can wait 
as long as you like before making any run and when you are ready 
press any key to jump. When your first little man has made his run 
and either swung to safety or perished the second explorer will 
appear in position. There are five of them in all and the length of the 
rope remains the same for all of them. With each new game the rope 
changes at random. 


Typing tips 


Remember that you can save effort by taking advantage of the Oric’s 
copy facility when inputting lines that are similar to earlier ones. Use 
the cursor keys to move to the characters you want to copy and then 
press CTRL and A together. 

In line 740 there are two sets of quotation marks with nothing in 
between. This is known as a null string. 


Subroutine structure 


20 Initialises arrays 

40 Main play loop 

110 Swings rope 

310 Man across routine 

400 Calculates positions of rope 
470 Prints ravine 

680 Plots man on end of rope 
740 Man jumps routine 

860 Gets next man ready 

980 Man falls in water routine 
1150 Sets up game 
1240 End of game 


Programming details 


This program uses an interesting combination of low and high 
resolution graphics. The river banks are created using the FILL 
command. The rope is plotted in high resolution grahpics and its old 
positions are blanked out by re-plotting them. The little man figure 
is a low resolution user-defined graphic produced in high resolution 
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mode using the CHAR command. This means that he can appear 
anywhere on the screen. He therefore seems to move smoothly 
rather than in the jerky fashion that would result if he could only be 
printed at set character positions. 

Another point to note is the way the co-ordinates of the positions 
of the swinging rope are first calculated by subroutine 400 and stored 
in two arrays, ‘X’ and ‘Y’. These positions are then used repeatedly in 
the plotting of the swinging rope. This saves having to recalculate 
them each time they are needed and so speeds the whole program up. 
This technique can be applied to any situation where anything is 
moving rhythmically or periodically. For another example, see 
Mighty Missile. 


Scope for alteration 


You can make the game easier by increasing the value to the right of 
the “<” in line 830 or make it more difficult by decreasing this value. 


Program 
10 REM Across the Ravine 


20 DIM X(32) 
30 DIM YC32) 


40 GOSUB 470 

$0 GOSUE 400 

60 GOSUB 1150 

70 GOSUEB 840 

80 GOSUB 110 

90 IF MEN=0 THEN GOTO 1240 
100 GOTO 80 
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110 
130 
140 
150 
140 
170 
180 
190 
200 
210 
230 
240 
250 
260 
270 
280 
290 
300 


310 
32 

330 
340 
350 
340 
370 
380 
390 


400 


FOR T=1+k TO N-R 

CURSET 118,40,1 

DRAW X(T),Y¢(T),1 
S=1;3GOSUB 4680 

CURSET 118,40,0 

DRAW X(T),YCT),0 

IF J=1 THEN S=Z2?GOSUB 680 
NEXT T 

IF C=1 THEN GOTO 310 

FOR T=N-R TO 1+R STEF ~1 
CURSET 118,40,0 

DRAW X(T) ,YCT) 1 
S=3:GOSUB 680 

CURSET 118,40,0 

DRAW X(T),YCT),0 

IF J=1l THEN S=43GOSUB 680 
NEXT T 

RETURN 


ACROSS=ACKOSS+1 
DX=(ACROSS~1)«104+15 
DY=140 

GOSUB 710 

C=9 

MEN=MEN~1 

IF MEN=0 THEN GOTO 920 
GOSUB 840 

RE TURN 


N=0 
FOR T=-PI/6 TO PI/S STEF .05 
N=N+1 

X(N)=INT(~1L00KSINCT)) 
Y¢N)=INT(100xXCOS(T)) 

NEXT T 

RETURN 


470 
475 
480 
490 
900 
310 
u20 
vod 
340 
945 
560 
370 
980 
290 
600 
610 
620 
630 
670 


680 
490 
700 
710 
720 
730 


740 
750 
740 
770 
780 
730 
800 
810 
820 
830 


840 
850 
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TEXTSFAFER 43 INK 7 
FRINT CHRS (4) 
CH=46080 
C=ASCC'@") KB 

FOR IT=0 TO 7 

READ D 

FOKE CH+C+1,D 

NEXT I 

DATA 125123;43,63,12,18,51,51 
HIRES FRINT CHREéC1L7) 
CURSET 8,150,3 

FILL S0s15,i27 
CURSET 150,150,3 
FILL 30,15,127 

C= 9 

Je 0 

INK 2 

FAPER 7 

RE TURN 


IF C=0 THEN GOTO 740 
DX#1L1L5+x¢T) 

DY=Y¥CT +41 

CURSET DX,DY,3 

CHAR 64,0,2 

RETURN 


IF KEY$="" AND J=0 THEN WALT ZS3RETURN 
Jel 

DY=MY 

DX=MX 

GOSUB 710 

MX=MX-8 

DY=MY 

DX=MX 

GOSUE 710 

IF ABS CMX-118-X¢CT) 2210 AND S=2 THEN C=1$ 
GOTO 710 

IF MX<150 THEN GOTO %80 

RETURN 
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840 
870 
880 
890 
900 
710 
920 


930 
940 
960 


780 

985 

990 
1000 
1010 
1020 
1025 
1030 
1040 
1050 
1040 
1070 
1080 
L090 
1100 
L110 
1120 
1130 
1140 


MX=230 

MY=140 

DY=MY 

DX=MX 

d= 0 

GOSUE 710 

FRINT "men Lleft"$SFCCS)j'men across"}$ 
SPCCS)3 "men lost" 

PRINT SPC (4) $MENSSPC(12) SACROSS$SFC(11)3L081 
IF MEN=0 THEN GOTO 1240 

RE TURN 


GOSUE 710 
[Fs 

MY=MY+8 

DY=MY 

GOSUE 710 

MUSTC 1,3,F,10 

FLAY 1,0,0,0 

WAIT 2 

GOSUE 710 

IF MY#185 THEN F=F+1:GOTO 990 
EXPLODE 

LOST=LOST+1 

C9 

JQ 

MEN=MEN~1 

IF MEN=0 THEN GOTO 920 

WAIT 200 

GOSUB 840 

RETURN 


1150 
11640 
L170 
1180 
L190 
1200 
L230 


1240 
124% 
1250 
1240 
1270 
1280 
1290 
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MEN=5 
LOST=0 

ACKOSS=0 

=f 

C= f 

ReINT CRND CL) ®S) 
RE TURN 


FINGSWAIT 100 

TEXTSPRINT CHREC&) 

FRINT "You lost "LOST 

INFUT "Amother game Y/N "FAS 
IF Ate "¥" THEN RUN 

CLS 

STOF 


6 
Guideline 





This is a game of skill in which you have to guide a square along an 
irregular wavy wire. When you play this game witha real wire anda 
ring, it’s a test of how steadily you can guide the ring along the wire. 
In this Oric version it’s a matter of speed as well as hand and eye co- 
ordination. The square moves from left to right across the screen 
automatically but you have to keep it on course by pressing the up 
and down arrow keys. The object of the game is to be on target for as 
much of the length of the wire as possible and at the end of the game 
the percentage of time you were successful is displayed. 


How to play 
At the beginning of the game you have to select the level of difficulty 


of the game - from | (easy) to 5 (difficult). This determines the size of 
the square that has to be guided along the wire. Once the square 
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appears, a tone sounds to indicate the start of the game and then the 
square automatically starts to move right. Press the up and down 
arrow keys to change its direction to ensure that it stays on the wire. 
Keeping your finger down on an arrow key will keep the square 
moving in the same direction. If the square leaves the wire another 
tone will sound and will continue to sound at every move until you 
regain a position on the wire. 


Subroutine structure 


20 Initialisation routine 
140 Call to main play loop 
160 End of game 
250 Initialises variables and prints title frame 
480 Plots wire 
590 Draws and moves square and calculates amount on target 
840 Off target sound 


Programming details 


High resolution graphics are used in this program to give the 
smooth movement needed to test the players’ skill. Subroutine 480 is 
responsible for plotting the line for the wire and the square is 
constructed by a collection of PLOT statements at the beginning of 
subroutine 590. The POINT function is used in this subroutine to 
test whether the square ring is actually on target around the wire. 

Notice the way that the ASC function is used in lines 660 and 670 
to discover if the up and down arrow keys have been pressed. The up 
arrow corresponds to an ASCII code of 10 and the down arrowtoan 
ASCII code of 11. 


Program 


10 REM Guideline 


20 
30 
40 
70 
80 
70 
100 
110 
120 
130 


140 


140 
170 


180 
190 
200 
210 
22 

230 


240 


250 
260 
270 


2°10) 
200 
810 
B20 
330 
340 
350 
360 
O70 
380 
390 
400 
450 
+40) 
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PRINT CHR(L7) 
GOSUB 250 
FRINT CHRS(6) 
GOSUB 480 

WAIT 100 

PRINT "GO" 
PING 
Y¥=1003X=20 

B= tR=30~DF 
R2=R/2tV=#3 


GOSUE S96 

FRINT "You were on target " 

PRINT INTCHIT/ (CHIT+MISS) x10000)/1005 
"% of the tine" 

INFUT "Another game Y/N" SAS 


PRINT CHRE CL?) FCHRECS) 3 
TF Atk "¥" THEN RUN 

IF Ate>"'N" THEN GOTO 180 
CLS 

TEXT 

STOP 

X10 

Y=100 

D=15 

Fes: 0 

TEXTICLS 


FLOT 10,2,"6 U IT DEL YN E" 

FLOT 2,4,"You must guide a ring alone the" 
FLOT 2,5,"wavy ‘wire’ usine the up and" 
FLOT 2546."dowrn arrow keys" 

FLOT 2589,"You will be marked on how" 

FLOT 2,9,"aceurate you are" 

FLOYT 2,11,'Select the difficulty level" 
PLOT 2,12," 1 (easy) to S (difficult) " 
GET DF 


IF DF. OR DF>S THEN GOTO 380 
DE=DF «4 
HIRES 


RETURN 


480 
490 
300 
310 
320 
340 


350 


380 


790 


830 


840 
850 
840 
870 
880 
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CURSET X,Y,1 

FOR I=1 TO 10 
R=D-~INTCRND (1) *¢2«KD)~1) 
Y=RY+k 

IF Y>2180 THEN Y=Y-RiR=-K 
IF Y210 THEN Y=Y+Ri3R=-k 
DRAW 20,R,1 

NEXT I 

HIT=0 

MISS=0 

RETURN 


CURSET X-R2,Y~-R2,2 

DRAW 0,R,2 

DRAW R,0,2 

DRAW 0,~-R,2 

DRAW -K,0,2 

A$=KEY $ 

IF Ags=""" THEN GOTO 680 

IF ASC(CA$)=11 AND Y-R2>2*V THEN B=B-2xV 
IF ASCCA$)=10 AND Y+R<2190-2xV THEN B=6+2xV 
CURSET X-R2,Y~-R2,2 

DRAW 0,R,2 

DRAW R,0,2 


DRAW 0,-R,2 
DRAW -R,0,2 

X=X+V 

IF X=210 THEN RETURN 
Y=B 

F=0 


FOR IT#-Rh2+1 TO R2~1 

IF POINT(X,Y+I)=-1 THEN HIT=HIT+1 3 
WALT 1LO0°T#R-13F=1 

NEXT I 

IF F=1 THEN GOTO 590 

MISS=MISS+1 

GOSUB 840 

GOTO S90 


SOUND 1,50,0 
PLAY 1,0,1,2000 
WAIT 1 

FLAY 0,0,0,0 
RETURN 


7 
Laser Attack 





This is a very exciting and fast moving space fight game that uses 
sound effects and some rather unusual graphics techniques to good 
effect. The screen is treated as if it were a spherical universe. So, if 
you go off the top of the screen you re-appear at the bottom and if 
you go off at the right you re-appear at the left. This game is a race 
against time. The Oric will count to two hundred while you try to 
annihilate the enemy ship with your infallible laser weapon — the 
chase is on. 


How to play 


At the beginning of this game you have to select a difficulty factor. 
This governs the unpredictability of the enemy ship’s course and the 
number of stars that appear. The stars act as obstacles in this game. 
If you hit one you will be deflected at random so the fewer there are 
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the easier it is to steer yourcourse. Your ship moves continuously. It 
is shaped like an arrow-head and can point in any of eight directions. 
Every time you press any key it turns clockwise through 45 degrees. 
The enemy is a revolving cartwheel-shaped disc that meanders 
through space. To fire your laser press the space bar. Your weapon 
will fire in a straight line from the point of your arrow. If you hit the 
enemy ship it will disintegrate with appropriate sound and visual 
effects. The counter is constantly displayed at the bottom left of the 
screen and when it reaches 200 your time is up. 


Typing tips 


Notice the null string in line 130 — there should not be a space 
between the two sets of quotes marks. 


Subroutine structure 


20 Main play loop 
120 Fires or rotates direction of arrow 
200 Laser zap routine 
380 Explosion routine 
490 Detects hit 
560 Moves arrow 
670 Moves target 
840 Title frame 
950 Gets and prints time 
990 Prints stars 
1040 Initialises variables and defines graphics 
1400 Draws arrow 
1890 End of game 


Programming details 


This is a complicated program and one that illustrates a number of 
novel programming methods. The arrow is produced bya collection 
of CURSET and DRAW commands. The cartwheel is produced by 
printing one of two user-defined characters on the screen using the 
CHAR command. The arrays V and W are used to hold the 
horizontal and vertical velocities that determine the movement of 
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both of them. They also determine the direction in which the lines 
that make up the moving arrow are drawn. This technique ensures 
that the arrow keeps pointing the same way it is moving. 


Scope for improvement 


If you feel very ambitious you could make this game even more 
exciting by enabling the enemy ship to fire at random - so that you 


have to dodge its fire at the same time as pursuing it. 


Program 


10 


20 
30 
40) 
wa 
&0 
70 
80 
all 
100 
110 


120 
130 
140 
150 
160 
170 


REM Lager Attack. 


PRINT CHR&CL?) 

GOSUB 840 

GOSUE 1040 

GOSUE 950 

IF INTCTIME) S200 THEN GOTO 1890 
GOSUE 120 

GOSUE 340 

IF Hei THEN GOTO 1890 

GOSUE 700 

GOTO 30 


AGE KEY & 

IF Age!" THEN GOSUB 14003 RETURN 
IF ASC (A$) #32 THEN GOTO 200 
GOSUE L400 3 KeK+d 

IF Ke8 THEN K=! 

RE TURN 


200 
210 
220 
230 
240 
25 

260 
270 
280 
290 
300 
310 


320 
330 
340 
350 
360 
370 


380 
390 
400 
410 
420 
430 
435 
440) 
450 
440 
470 
480 


490 


S20 


30 


540 
S80 
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XLEX+GKV CD 

YLeV¥+GeW CKD 

GOSUE 490 

CURSET XL,YL,0 

DX=0 

IF V¢K)#1 THEN DX#230-XL 

IF V¢K)#-1 THEN DX#4—XL 

DY =0 

IF WCK)#1 THEN DY#190-YL 

IF WCK)e—1 THEN DY#46—YL 

IF V¢CK)xWCK)=0 THEN GOTO 330 
IF AESCDX) SARS CDY) THEN DY=ABS (DX) KSGNCDY) ¢ 
GOTO 330 

DX#ABS (DY I KSGNCDX) 

DRAW DX,DY 51 

CURSET XL,» YL» 0 

ZAF 

DRAW DX,DY,0 

IF HO THEN GOSUE 14003 RETURN 


MX=BSMY=A 
FOR I=1 TO RNDC1) «+20 
DX=1L0-INTCRND CL) 2044) 

LF MX+DX>230 OR MX+DX<6 THEN GOTO 470 
DY=10-INTCRND (1) 2041) 

IF MY+DY2190 OR MY#DY<0 THEN GOTO 470 
IF DY=0 AND DX=0 THEN GOTO 470 

CURSET MX,MY>1 

DRAW DX,DYe1 

ZAF 

NEXT I 

GOTO 1900 


He 0 

DY A~Y~GxW CK) 

DX=B—X—GKY CK) 

IF WOK) KDX<2UCK) DY THEN RETURN 

IF ABSCVCK))XSGN(DX) <2VCK) OR 

OR ABSCWCK) XSGN(DY)<2W(K) THEN RETURN 
Hed 

RETURN 
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560 
570 
580 
590 
600 
610 
620 
430 
640 
640 


&70 
680 
690 
700 
710 
72.0 
730 
740 
750 
7&0 
770 
780 
790 
800 
810 
830 


840 
850 
8460 

870 
880 
B70 


700 
910 
920 
930 
240 
9S 0 
960 
780 


REM MOVE ARROW 

X=X+VU CK YKS 

Y=Y+tw cK a6 

IF X12 THEN X=228 

IF X>228 THEN X=6 

IF Ye12 THEN Y=180 

IF Y>180 THEN Y=12 

IF FOINT(CX,Y)#-1 THEN EXFPLODE?GOTO 670 
GOSUB 1400 

RETURN 


2k 1 

IF K>8 THEN Kl 

GOTO S40 

IF RNDCL)>1.05-DF/20 THEN Z=Z+1 

IF 228 THEN Z=1 

CURSET B-3,A~3,03CHAR 127,0,0 
AZ=AtVCZIKS 

B=b+W (ZG 

IF Bil2 THEN B=228 

IF E2228 THEN B12 

IF Avil2 THEN A=180 

IF As180 THEN A=12 

IF POINTCE,A=—1 THEN SHOOT? Z=Z+13GOTO 710 
CURSET EB-3,A-3,0°CHAR ASCCWSCR+19),0,4 
IF R=0 THEN Rel ELSE R=0 

RE TURN 


TEXTS FPAFER 42 INK 73CLS 

FLOT 8,2,"L AS ER ATT AC K" 

PLOT 2,4,"You are im control of an advanced 
FLOYT 2,7,"laser attack ship in pursuit" 
FLOT 2,8."o0f an enemy craft" 

FLOT 2.10,"Shoot it down before your time 
is up" 

FLOT 2,15,"Select the difficulty level" 
FLOT 2,16,"1 Ceasy) to 9 Cdiffieult) 

GET DF 

IF DF<1 OR DFS? THEN GOTO 920 

RE TURIN 


TIME=TIME+1 
PRINTSERINT TIME 
RETURN 


790 
1000 
1010 
1020 
1030 


1040 
1060 


1070 
1080 
1090 
1100 
t120 
1120 
1140 
1150 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
12640 
1265 

270 
1280 
1290 
1300 
1310 
1320 
1330 
1335 
1340 
1345 


1350 
1355 


1340 
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REM star 

IF RNDCL)>.S+DF/50 THEN RETURN 
CURSET RND(1)>*230,RND¢1)*190,1 
CHAR 42,0,1 

RETURN 


DIM W(8),V(8) 

DATA “LelsOsloloelo le Oesla~-1,O,—-Ly~1ls—1l, 
“1 , 0 ? mf $ 1 

FOR I=0 TO 8 

READ W,VIWNCTIeWIVUCT)=V 

NEXT I 

te] 

X=40 

Y=30 

B=INTCRND CL) 10) *46+24 

A=INTCRND (C1) K10)*4+24 

CH=446080 

FOR Q=1 TO 2 

READ C 

FOR I=0 TO 7 

READ D 

FOKE CH+Cx8+T,D 

NEXT TI 

NEXT Q 

HIRES 

DATA 91,146,33,19,12,12,50,33,2 

DATA 93457,36,36,460,15,5,5,28 

W$CL) #0 Et" 

WH C2 pe 

Fe= 0 

NEL: 0 

NEZs 0 

GOSUB 1400 

TIME=0 

FOR J#1 TO LO+INTCRNDCL>xXDF) 3 GOSUB 9903 

NEXT J 

b= 0 

FAPER 4 

RE TURIN 
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1400 
1410 
1420 
1430 
1440 
1450 
1440 
1470 


1890 
1900 
1910 
1920 
1930 
1940 
1935 
1960 
1970 
1980 


CURSET X,¥,2 

DRAW 6KXVCK),6¥WNCK) » 2 
T#K+33L=I~-INTCI/8) x8 

DRAW 3KVCT),3KW(T),2 
CURSET X+6«VCK) > Y+tGRWCK) 2 
T#K+53L2I-INTCL/8) x8 

DRAW 3KVCT),3*W(T) 42 
RETURN 


IF He>l THEN GOTO 1930 

WALT 1LOO03 TEXT 

FRINT "You did it " 

GOTO 1946 

FRINT "Your time is up" 
FRINT CHRE C17) SCHR CH) 
INFUT "Another game Y/N'3 At 
TIF A#="Y" THEN RUN 

CLS 

SToOr 


8 
Word Scramble 


Ft jkIQAqQUREM itreu 
VCNUMXI xQx1lo 
fuFf LHIZQAQaMESM 
de F et ph adil 
xnQk a eaeast go 
Ane iseburkfzrtx 


13 tnewt 
Geo pbk et) u1b 


ripoellssrcatd Bus rte ai 
Aiea 
mjsi agers 
Le tpn pe PL OE 

tec furgshr icnbe 1 f 
hapacstzgxrpipu 
lfppaqzzsak 3193 





This is a game that all the family can play - and it really presents 
quite a challenge even to the most sharp-eyed and keen-witted. Your 
Oric invites you to give it a list of up to ten words, each up to ten 
letters long. Once you have entered them it hides them within a 
fifteen-by-fifteen grid and fills up all the vacant spaces with random 
letters. All the words you’ve entered appear along straight lines — 
vertically, horizontally or diagonally — but they can be backwards, 
upside-down, or slanting from bottom to top. Once they have been 
camouflaged by all the random letters spotting them is like looking 
for a needle in a haystack. If you want to make the task a little easier 
you can opt to preview the puzzle before any extra letters are added. 
This at least gives you a chance to unscramble the puzzle. There is yet 
another helpful hint you can opt for. You can have the list of hidden 
words displayed on the screen beside the puzzle — but you may be 
surprised how difficult to spot they still are. 

The object of the game is to find all the hidden words. Your 
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position in the square is indicated by an inverted character which 
you can use as a pointer to identify the first letter of each word you 
find. When you think you have found the first letter of a word type a 
‘w’. If you are correct you score a point, otherwise you'll hear a 
dismal tone. 


How to play 


The Oric guides you through the early stages of this game, asking 
you first how many words you wish to supply and then prompting 
you for each. You must use /Jower case only when supplying the 
words of your choice. Then it has to create the puzzle - which takes it 
a little time - longer the more long words you've included. It tells you 
that its “working” on it so that you don’t think it’s forgotten about 
you. When it’s ready it asks if you want to preview the puzzle. If you 
prefer to play the game without any advantages you can skip the 
preview by answering “n”. Similarly, you can answer either “y” or 
“n” to the next question which gives the option of having the list of 
hidden words displayed on the screen beside the completed grid. 
When the grid appears, you'll see that the top left hand position is 
displayed in inverted graphics. This is where the pointer starts. You 
have to use the arrow keys to move this cursor to a letter that you 
think is the first letter of one of the words in the list. Once the cursor 
is in position, type “w” — again using /ower case. The Oric will then 
ask you for the word that you have identified. Type this in. If you are 
correct you will score one point (and your score total will go up by 
one) but if you are wrong you will hear a tone. Once you’ve 
completed the puzzle you'll see the message “You got them all”. If 
you want to give up during the game type “r” and you'll be given the 
option to resign. 


Typing tips 


When playing this game remember to use lower case letters only. 
There is a single space between double quotes in lines 410, 590, 800, 
810, 930 and 1420 so don’t type in a null string instead. 
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Subroutine structure 


40 Initialisation routine 
80 Calls finding words routine 
90 Asks for words to be input 
290 Gives error message if more than ten letters input 
330 Finds longest word left in list 
380 Constructs puzzle 
760 Prints puzzle 
870 Allows preview and fills up puzzle with random letters 
1010 Main play loop 
1230 Asks for guess of word 
1320 Word correct routine 
1450 Checks that word is in list 
1500 Checks for word 
1620 Defines dot character and sets score to zero 
1670 Resign routine 
1715 End of game 
2000 Moves cursor to position 


Programming details 


Some interesting techniques are used in this program. The words are 
fitted into the square by choosing starting points at random (lines 
500-510) and also by choosing directions at random (lines 520-530). 
Each word is then tested against the square position-by-position and 
if there is an empty space, or the identical letter is already present, 
for every letter of the word then the word goes in. This allows for two 
or more words to cross over sharing a space at a common letter. If 
the word can’t be fitted in at its first random spot and direction, the 
program jumps back and chooses another spot and direction. This 
procedure is repeated until all the words are fitted. 


Scope for improvement 


If you have a printer, you could add a routine to this program to 
enable the completed puzzle to be printed out so that you take it 
away to be solved. To make the game more difficult you could allow 
it to accept more words. Notice, however, that the more words there 
are the longer it will take to be set up initially. To make the game 
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easier you could remove words from the word list, or mark them in 
some way, once they had been found. 


Program 


10 


80 


90 
100 
110 
130 
140 
150 
170 
175 
180 
190 
200 
210 
220 
230 
240 
250 


270 


REM Word Scramble 


GOSUE 90 

GOSUB 380 
GOSUB 1420 
GOSUB 870 


GOSUB 1010 


DIM L#¢10) 

DIM C¢(10) 

LST=0 

CLS 

INFUT “How many words "3W 

IF WZ OR We10 THEN FING?GOTO 140 
FRINT "Enter words Clower case omly)" 
FRINT CHRé¢20> 

FOR I=1 TO W 

FRINT "Word Number "slp "="5 

INFUT Ws 

IF LEN(W$)>10 THEN GOSUE 290 

IF LENCW$)<1 THEN GOTO 200 

Lb OD) =We 

CCL) =LENCWS) 

NEXT I 

RE TURN 


FRINT "Maximum of ten letters" 
INFUT W# 

FRINT “Word Number "33 "=" SWS 
RETURN 


M=0 $U=0 

FOR Z=1 TO W 

IF MC(Z) THEN M=C(Z)3J#Z 
NEXT Z 

RETURN 


380 
390 
400 
410 
420 


350 
340 
370 


600 


730 


750 
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DIM D$(15,15) 
FOR J=0 TO 14 

FOR I=0 TO 14 
DS(I,u=" " 

NEXT I 

NEXT J 

CLS 

FQ 

FOR I=1 TO W 

GOSUE 330 

L=C(J) 

Cu) =0 
X=INTCRND (CL) X(15=<L) +1 
Y=INTCRND (1) (L5-L) +1 
V=INT CRND (1) *3) <1 
UsINT CRND(1)*3) <1 

IF U=0 AND V=0 THEN GOTO 520 
A=XtB=Y 

IF V0 THEN A=A+L 

IF U<O THEN B=B+L 

FOR K=1 TOL 


IF D$(A,B)<>" " AND D$CA,B)<>MID$( (LCN) 6Ky1) 
THEN F#iiK=LiGOTO 420 

A=A+V 

ESB+U 

NEXT K 


TF F=1 THEN F=03GOTO 300 
FRINT "working" 

A=XIB=Y 

IF Ved THEN A=At+L 

IF U0 THEN B=B+L 

FOR K=1 TO L 
D$¢(A,B)=MIDSCLécd),K,1) 
A=At+Y 

B=6-+U 

NEXT K 

NEXT I 

RETURN 


52 Oric Book of Games 


740 
770 
780 
790 
800 
810 
820 
830 
840 
850 
840 


870 
880 
890 
700 
910 
920 
930 


740 
930 
960 
970 
780 
990 
1000 


1010 
1020 
1030 
1050 
1080 
1090 
1100 
1120 
1130 
1140 
1150 
1140 
1190 


1220 


REM print 

CLS 

FOR M=0 TO 14 

FOR N=0 TO 14 

IF D$¢N,M)=" " THEN FRINT "!'"'5 

IF DS#¢(N,M)a>" “ THEN PRINT D&CN,M)$ 
NEXT N 

IF LST=0 OR M10 THEN F RINT 

IF LST=1 AND Mt=10 THEN FRINT " "SLéCM) 
NEXT M 

RE TURN 


FRINT "Do you want to preview" 

INFUT "the puzzle y/m"sAs 

IF LEN(CA$)=0 THEN GOTO 870 

IF Age="y" THEN GOSUE 7640 

FOR I=#0 TO 14 

FOR J=0 TO 14 

IF Dé¢¢J,D)=" " THEN Dé¢J,D>=CHRéECINT CRND C1 dl 
26)4+97) 

NEXT J 

NEXT I 

FRINT "Do you want to display" 

INFUT “the words beside the puzzle y/m"3 As 
IF LEN(CA$)=0 THEN GOTO 960 

IF Age="y" THEN LST=1 

GOSUE 7607 RETURN 


X= 

Y=0 

FRINT CHRS(17) 3 

PLOT X+1,Y,ASC(D$(X,Y) 4128 

GET At 

IF A$="w" THEN GOTO 1230 

PLOT X+1,Y¥,D8(X,Y? 

IF ASCCA$)=8 AND X*0 THEN X#X—1 
IF ASCCA$)=9 AND X<14 THEN X=X+1 
IF ASCCA$)=10 AND Y<.14 THEN Y=#Y+1 
IF ASCCA$)=11 AND Y>0 THEN Y#Y~1 
IF Ag="r" THEN GOSUB 1670 

PLOT X+1,Y,ASCCDSCX,Y) 4128 

GOTO 1080 


L250 

1 2 ba ne 
1280 
1290 
1300 
1310 


Le 


1320 
1330 
1340 
1350 
1360 
1370 
13735 
1380 
1390 
1400 
140% 
L410 
1420 
1430 
1440 


L450 
1440 
1470 
1480 
1490 


1500 
1510 
1520 
1530 
1540 
1550 


15460 
1570 
1580 


1590 
1600 
1610 


Word Scramble 53 


ROW=203COL#=23GOSUB ZO007INFUT "What is 
the word" > Ws 

LF LEN(CWH)=0 OR LENCWN$)>15 THEN PINGS 
GOTO 1230 

GOSUE 1450 

ROW=2ZO3COL#2{COSUE ZOO03F RINT SPCC3S) 
IF MATCH=0 THEN FING?GOTO 1080 

FOR Us-t TO L 

FOR Ye«L TO 1 

IF U=0 AND V=0 THEN GOTO 1340 


GOSUB 1500 


ITF MATCH#=1 THEN Ved sued 
NEXT V 

NEXT U 

IF MATCH#1 THEN GOTO 1390 
FING 


ROW=Z03COL=23;GOSUB 2000 


GOTO 1080 

SC=SC+1 
COL#2:ROW=22:GOSUE 2000 
PRINT "Scores "3SC 

ZAP 


Lik CWO) se! i) 
GOTO 1080 


MATCH=0 
FOR I=1 TO W 
TF We=bLé¢T) THEN MATCH#13WO=D$ Lew 


NEXT I 
RETURN 
REM MATCH 
MATCH#1 
Ayn X 

Eiss ¥ 


FOR IT=1 TO LENCW$) 

IF MID$¢(W$,1,12<>D8¢CA,8) THEN I=LENCW$)3 
MATCH=03GOTO 14600 

AzA+U 

Bs BY 

IF Avi OR APLS THEN T=LEN(W$) $MATCH=02 
GOTO 1600 

IF Bel OR BSiS THEN L=LENCW$) $MATCH=0 
NEXT I 

RETURN 
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1420 
1430 
1640 
1450 
1455 


1640 


1470 
14675 
1680 
14685 
1687 
1490 
1710 


1715 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 


2000 
2010 
2020 


2030 


CH=440803C=8xASC CIN") 
FOR I=0 TO 7 

READ Di POKE CH+C+I,D 
NEXT I 

DATA 0,0,0,12,12,0,0,0 
RETURN 


PLOT 2,20,"Are you sure that you" 
ROW=2Z13COL=Z23GOSUE 2000 

INFUT “can find mo more words y/m" 3 A$ 
ROW=2Z03COL=23:GOSUB ZO003FRINT SFCC(35) 
ROW=2Z13COL=23GOSUB ZOO00SFRINT SFCC(35) 
IF ASAE yy" THEN RETURN 

CLS 


FRINT CHR ¢17) SCHR (20> 
FRINT "Final score= ";SCORE 
INFUT “Another game Y/N"jSA¢ 
IF Atg="Y" THEN RUN 

IF AgS2'N" THEN GOTO 1730 
STOF 

FLOY 1,22,"You got them all" 
PRINT CHR$ (17) ;CHRE (20) 

GOTO 1730 


DOKE #12,48040+ROWX40+COL~—4 
FOKE #2468,ROW+1 

FOKE #2469,COL 

RETURN 


9 
Treasure island 


Z 


” 


% é 


X MARKS TH 





Find the hidden treasure before the pirate ship reaches the island. 
This game has all the ingredients of high adventure. A desert island, 
peopled by natives both hostile and friendly, gold buried at the spot 
marked ‘X’ on the map, quicksands that spell danger to the unlucky 
treasure-seeker and even Long John Silver’s parrot. While you hunt 
for the booty the pirate ship is heading towards the island and once 
the pirates land you are certain to be captured. The game is 
displayed in colour graphics - blue sea and green island - and has 
sound effects as well. 


How to play 
The treasure is buried at the spot marked X on the map that is briefly 


flashed on to the screen at the start of the game. The path is also 
indicated. You have to follow the path exactly. If you stray there are 
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three possible outcomes. If you are lucky Long John Silver’s parrot 
will guide you back to the path — you will see the parrot hovering 
over the next position on the path, if you are unlucky you will 
encounter hostile natives and will find yourself back on the path 
three paces back from where you left it, and if youare unluckier still 
you will end up ina quicksand. This can bea final fate or you may be 
rescued by a friendly native. If you need to consult the map in order 
to follow the path you can type “H”. When you do this you will be 
shown the map — nowalso indicating the locations of the quicksands 
- for a short, random length of time. But every time you ask to see 
the map the pirate ship comes nearer and if the ship arrives before 
you find the treasure you will be captured. The ship advances in any 
case once for every five moves you make so you need to be accurate. 
You can only make your move when the map has disappeared from 
the screen and the Oric won’t allow you to cheat. To move along the 
path use the right, left and forward arrow keys - you cannot move 
backwards. 


Subroutine structure 


20 Defines graphics characters 
220 Initialises variables and arrays 
310 Main play loop 
510 Logic for natives’ attack 
670 Logic for parrot’s help 
810 Prints island with or without map 
940 Prints path 

1040 Moves man 

1250 Prints quicksands on map 
1330 Logic for quicksands 

1480 Constructs island 

1600 Path logic 

1680 Locates treasure 

1710 Constructs quicksands 
1800 Moves and prints pirate ship 
2150 Help routine 

2220 Treasure found routine 
2310 End of game 

2500 Loads character definitions 
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Programming details 


This is a very long program with lots of different ingredients. It 
therefore appears rather complicated whereas in fact it is quite 
straightforward. One technique to notice is the way the island is 
constructed at random by subroutine 1480. There the use of SGN 
function results in the contour of the island first going out and then 
coming in at random, giving an island-like shape. 


Scope for alteration 


If you want to alter the length of time the map is displayed for when 
you ask to see it you can change the value of the WAIT in line 2170. 
You might also want to alter the amount that the pirate ship moves 
at each step by setting a different value for ‘R’ in line 1840. Currently 
it’s set randomly to a value between | and 3. 


Program 
10 REM Treasure Island 


20 CH=44080 

30 C#@xAscc'!') 

40 GOSUB 2500 

S50 DATA 32,54,62,28,30,39,32,0 

60 C#8xASCC'R") 

70 GOSUB 2500 

80 DATA 1,13,45,63,45,13,18,18 

90 C=8xASCC'#') 

100 GOSUB 2500 

110 DATA 63,30,45,51,51,45,30,63 
120 C=8xASC ("S$") 

130 GOSUE 2500 

140 DATA 8,63,43,463,30,30,12,12 

150 C=8xASC ("ZA") 

140 GOSUE 2500 

170 DATA 12,28,30,31,63,62,28,24 
180 C=8xKASC CA") 

190 GOSUE 2500 

200 DATA 12,12,30,30,12,18,51,51 
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220 
230 
240 
aa) "0 
260 
270 
280 
290 
300 


310 
320 
330 
340 
350 
340 
370 
380 
390 
400 
410 
420 
430 
440 
450 
440 
470 
480 
300 


s10 
we0 
J30 
740 
550 
360 
5970 
600 
610 
620 
630 
640 
650 
640 


<x T 
703 02 8 
ii i] 


=] 
=] 
MES= at) 

DIM V(10) 
DIM UC10) 
DIM L¢20) 
DIM R(20) 
DIM X(20) 


GOSUE 1480 

XM=XCT+1) 

YM=T+1 

RE=03GOSUE 810 

WALT 300+RNDC1L)>*100 

RF=L3GOSUE 810 

GOSUE 1140 

GOSUE 1040 

IF XM=XT AND YM=YT THEN GOTO 2220 

sess Boge of 

IF INTCR/S)=F/35 THEN GOSUE 1800 

IF XCYM)=XM AND INTCF/S)=F/5 THEN GOTO 340 
IF XCYM)=XM THEN GOTO 380 

REM off path 

FING? GOSUE 1800 

FOR Q=1 TO 10 

IF VCQ)=XM AND U(CQ)=YM THEN GOSUB 13303011 
NEXT Q 

IF RND¢(1)<=.4 THEN GOTO 670 


REM matives 

RF=L3GOSUE 810 

FLOT 1,235,"HOSTILE NATIVES AHEAD" 
FOR N= A TO 3 


IF YM+R os B THEN Re O 
FLOT XM, YM+k,"@" 

NEXT N 

YM=YM~-3 

IF YMeT+1 THEN YM=T+1 
XM=XCYM) 

PLOT XM,YM,ME 

MES 1 

GOTO 380 


&70 


&70 


810 
820 
830 
850 
840 
87 0 


880 
890 
900 
910 
920 
930 
933 
935 


P40 
930 
960 
970 
%80 
990 
1000 
1010 
1020 
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REM parrot 

RES Li GOSUE 810 

LO05UeE 1140 

FLOT 1,25,"FOLLOW LONG JOHN SILVERS FARROT" 
YIRYM +L 

XJeX CYS) 

FLOT XJ,Y¥d, bE" 

MES= 1 

COTO 380 


REM print island 

CLS 

FAFER 4 

FOR X#L¢T)<1LTO ROT) 421 
FLOT X,T,18 

NEXT x 


» FLOT X,7T,20 


FOR Y#T TO EB 

PLOT LCYoed,Y,183FPLOT ROY 4+1,Y,20 
NEXT Y 

FOR X#L¢YeLd-1 TO ROY-L) 41 

FLOT &s¥s18 

NEXT X 

PLOT XsV¥_20 

IF RE&l THEN RETURN 


REM print path 

FOR Y=T+1 TO F 

FLOT XC¥),¥,"K" 

NEXT Y 

FLOT 1,24,CHREC7)+"X marks the spot" 
PLOT XCFD,F,°X" 

FLOT XM,YM,"*" 

GOSUB 1250 

RETURN 
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1040 
1045 
1050 
1060 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1180 
1190 
1200 
1210 
1215 
1220 


1230 


1250 
1270 
1280 
1290 
1300 
1310 
1320 


1330 
1340 
1370 
1390 
1410 
142 

1425 
1430 
1440 
L445 
1450 
1440 


1470 


REM move mari 

PLOT XM,YM,"4" 

FING 

GET At 

FLOT XM,YM," " 

IF A$="H" THEN GOSUE 2150$ RETURN 

IF ASCCA$)=8 THEN XM=XM-1L3GOTO 1150 
IF ASCCA$)=9 THEN XM=XM+1SGOTO 1150 
IF ASCCA$)<210 THEN GOTO 1050 
YM=Y¥M+1 

REM plot man 

FLOT XM,YM,"4" 

IF MES=0 THEN RETURN 

FOR I=0 TO 31 

FLOT I,23," "' 

FLOT ©,25," " 

NEXT I 

MES=0 3 RETURN 


REM print quicksands 
FOR Q=1 TO 10 

FLOT ¥V¢Q),UCQ),"%" 
NEXT Q 

XS=XS+1 

YS="YS+1 

RETURN 


REM quicksand 

RE=LiGOSUE 810 

FLOT XM,YM,M# 

FLOT XM+1,YM+1,"AAARGH" 

FOR T=S0 TO 10 STEF ~-4 

SOUND 1,0,15¢FLAY 1,0,0,0 

WAIT S 

NEXT I 

FLAY 0,0,0,0 

WATT 100 

FLOT 1,20,"IN THE QUICKSAND" 

IF RNDC1>>.5 THEN FLOT 1,23,"A native 
Pulled you out" WALT SOOSRETURN 
GOTO 2310 


1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 


1400 
1410 
1420 
1430 
1640 
1650 
1660 
1470 


14680 
1690 


1710 
1720 
1730 
1740 
1750 
1740 
1770 
1780 
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L=INTCRND CL) *4)412 
TINT CRND C1) 4) +2 
WelS+InTCRND C1) «4) 
B=INTCRND CL) *3) +17 

FOR YT TO & 

L¢Yoek 

RCY >? =L+W 
LelL-INTCSGNCLO-Y*XCRND CL) x2) ) 
WeWtINTCSGNCLO-Y*XCRND CL) x2) > 
IF Lye THEN LY) =2 

IF RCYI238 THEN RCY)=38 
NEXT Y 


XOT+ 1 =L¢OT+1>+INTCRND CL) x8) 

fi Te? 

FOR Pek TO B-2-RNDC1) x3 

XCF) X CPL +INT CRND CLI KB) —1 

IF XCPO>eRCP) THEN XCPOSER CR 1 
TF XCPOe=L CP) THEN XCPOeL CPO +1 
NEXT F 

fF Poa F oon 1 


XT=X CF) 
YTsF 


FOR Q=1 TO 10 

De INT CRND CLI KOR T-2)4+T+2) 

UCQ) =D 

YV¢Q) =X (DI +SGNCRNDCLI-~.5) 

IF VeQ)e@l CD) THEN VC Q)#¥CQ) +3 
IF V¢Q)e"RCD) THEN VCQ)=VCQ)-3 


NEXT Q 
RE TURN 
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1800 
1810 
1820 
1830 
1840 
1850 
18640 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 


REM pirate ship 

CLS 

INK 7 

FAFER 4 

R=RND CL) *3 

XS=XO+k 

YS#YS+k 

FLOT 18,18,"%" 

FLOYT XS,YS,"#" 

FLOT XS,YS#1,"$" 

WAIT 300 

IF YS$<i8 THEN RETURN 

FLOT 0,22,"THE PIRATES HAVE LANDED" 
FLOT 0,23,"YOU ARE CAFTURED" 
GOTO 2310 


RF=Q03GOSUB 810 
GOSUB 1250 

WAIT 100+RNDC1)*S00 
GOSUE 1800 
RF=1LIGOSUEB 810 
GOSUE 1160 

RETURN 


FOR C=0 TO 7 
PAPER C 

CLS 

MUSIC 1,4,C+3,153PLAY 1,0,0,0 
WAIT $0 

NEXT C 


S FAPER S3INK 0 


FLAY 0,0,0,0 
PLOT 7,10,"YOU FOUND THE GOLD" 
WATT 100 


INFUT “Another game Y/N"3 AS 
IF Age "Y'" THEN RUN 

PAPER 7 

INK 0 

CLS 

STOF 
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2500 FOR I=0 TO 7 
2510 READ D 
2520 POKE CH+C+1,D 
2530 NEXT I 
2540 RETURN 


fe 
Rainbow Squash 





This is a colourful version of the popular computer squash game 
which is also enhanced by the addition of sound - a cheery beep 
every time the ball bounces either on the sides of the court or against 
the bat and a dismal tone every time a ball goes out of play. Its other 
feature is that as you improve in skill the game gets more difficult 
and if you then start to get worse it gets easier. This means that your 
Oric will always give you a challenge that is suited to your ability — 
which makes it the perfect partner. 


How to play 


At the start of the game the bat is at the bottom of the screen and in 
the centre. You control the left and right movement of the bat by 
pressing the appropriate arrow keys. Every time you make two hits 
in succession the position of the bat changes — it moves nearer to the 
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top of the screen — which makes returning the ball more difficult. If 
you then miss a shot the bat will move back one position, making it 
easier. You score a point for every hit and you will be served a total 
of 10 balls. Information about the number of balls played and hits 
scored is displayed on the screen continuously. 


Typing tips 


Notice that there are single spaces at either side of the three 
exclamation marks in line 300. They are important as they serve to 
blank out the old positions of the bat. There are three spaces 
between the quotes marks in lines 390 and 870 but only one space 
between the quotes in lines 410 and 660. 


Subroutine structure 


20 Sets up screen and colours and initialise variables 
70 Defines graphics characters 

180 Sets up initial screen display 

200 Main play loop 

460 Draws court 

630 Bounce routine 


770 Moves bat up screen 
890 End of game - prints final score, offers another game and 


re-runs or restores screen display 
1010 Moves bat to left and right 


Programming details 


The different coloured areas of the court are created by POKEing 
background attribute codes in the protected column on the far left of 
the screen. This is carried out by lines 505, 540 and 595. 


Program 


10 REM Sauash 
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20 
30 
4) 
30 
40 


180 
190 


200 
210 
220 
230 
240 
250 
260 
280 
290 
300 
320 
340 
360 
370 
390 


410 
420 
430 
440 


FRINT CHR$C17) 5; CHRS C4) 
HT=03H=0 

D=19 

BALL =0 


C=2 


CH=44080 

FOR Q=1 TO 2 

READ C 

FOR I=#0 TO 7 

READ D 

FOKE CH+Cx8+I,D 

NEXT I 

NEXT Q 

DATA 33,463,63,63,43,63,63,63,63 
DATA 64,12,30,30,463,63,30,30,12 


GOSUE 4640 
x=10 


BALL=BALL+1 

IF BALL>10 THEN GOTO 890 
A=10+INTCRND C1) «7 ) 

Fis: 


M$="Ball "4STRS(BALL)$FLOT 10,21,M% 
GOSUB 1010 

PLOT X,Y," treo" 

M$="Hit "+STR&CHT) SFLOT 20,21,M% 
GOSUB 430 

IF B+W<>Y THEN Y=D!GOTO 290 

ZAF 

FLOT X+1,¥," =" 

GOSUB 430 

PLOT A,B," " 

IF D<1i9 THEN D=D+1 

H=0 

GOTO 200 


460 
470 
480 
490 
300 
90S 
210 
320 
330 
540 
350 
580 
3970 
S95 
400 
610 


430 
6460 
670 
680 
690 
700 
710 
730 
760 


770 
780 
790 
800 
810 
820 
830 
840 
850 
87 0 
880 
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CLS 

FAFER 3 

FOR I=1 TO 34 

PRINT "EN 

NEXT I 

FOKE 48040,17 

REM COLOR COURT 

FOR I=1 TO 7 

PLOT: Bekah te SPLOT. siete 
POKE 48000+¢L+1>*40,17 

NEXT I 

FOR I=7 TO 20 

PLOT 2p bps. Sie be. cs 2 
IF TiS THEN FPOKE 48000+¢L+1>x*40,20 
NEXT I 

RE TURN 


REM BOUNCE 
FLOT A,B," " 


A=A+Y 

Bt WW 

IF A=30 OR A&S THEN V=-VSPING 
IF B=1 THEN W=~WIPING 


IF B+W=Y THEN GOTO 770 
PLOT A,B, "@" 
RETURN 


R=A~X 

IF Red OR RS3 THEN GOTO 750 
Wish 

FING 

HH 

HT=HT+1 

IF Heel THEN GOTO 720 
Fl 0 

DeD- 1 

PLOT X#i,Y," 

GOTO 750 
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890 
900 
910 
720 
930 
940 
950 
940 
970 
980 
790 


1010 
1020 
1030 
1040 
1050 


WAIT 100 
CLS 
M$="You scored "+STR#CHT) 


FLOYT 10,10,M% 

FLOT 10,15,"Another game y/n " 
GET Ast 

FRINT CHR (17) S;CHRE C4) 

IF Ag="Y" THEN RUN 

IF A$<>"N" THEN GOTO 930 
CLSSFAFER 7 

END 


K$=KEY $ 

IF K$=""" THEN RETURN 

IF ASCCK$)=9 AND X2.26 THEN X=X+1 
IF ASCCK$)=8 AND X>5 THEN X=X~-1 
RETURN 


il 
Commando Jump 


> 





This game is a real test of your reaction time and dexterity and is 
quite compulsive to play. A bright red wall of varying height appears 
with a little man figure beside it. A countdown “Ready, Steady, Go” 
is flashed up on the left of the screen and on the word “GO” the man 
has to jump as high as possible and then scramble up the remainder 
of the wall in the alotted time —- approximately five seconds. Your 
success in this game depends entirely on your quick wits and nimble 
fingers. 


How to play 


On the word “GO”, and no sooner, press any key to make the man 
jump. The height of the initial jump depends entirely on the delay 
between the signal appearing and your key press. The quicker you 
react, the higher the man will jump. The time left to scale the wall is 
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displayed on the screen and while the rest of your five seconds tick 
away you must keep on pressing keys to get the man over the wall. 
The man will climb one brick higher for every four key presses but 
he will not respond if you simply keep pressing the same key. In 
other words you have to press different keys alternately — the easiest 
way is to press two neighbouring keys with two fingers — and the more 
rapidly you press the more quickly he will climb. If the man is not 
over within the time limit he will slither back down the wall and you 
have another try. In all you are given ten attempts. Even if you are 
very slow off the mark, do press a key — until you do so you cannot 
move on to the next try. If you hit a key just before the “GO” signal, 
the computer will accuse you of cheating and you will lose that turn. 


Typing tips 


There are six spaces between the quotes in line 70, five in line 100, 
seven in line 130, six in line 280 and fourteen in line 780. These are 
needed to blank out messages displayed on the screen. Similarly 
there are two blanks in line 600 and one each in lines 630, 670, 710, 
820 and 880. Notice the null strings in lines 65, 140, 180, 620 and 
1165. 


Subroutine structure 


20 Sets up mode and calls initialisation routine 
40 Play loop 
60 Countdown 
250 Cheat routine 
330 Prints well 
450 Jump logic 
570 Scramble over remainder of wall routine 
690 Man falls back down wall 
810 Prints man over wall 
970 Defines graphics characters 
1100 End of game and messages 
1230 Removed attribute codes from M$ 
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Programming details 


This is a fairly straightforward application of low resolution 
dynamic graphics. The wall and the man are both user-defined 
graphics. The colour of the wall is set by PLOTting the attribute 
code for red to the left of each brick and the attribute code for black 
to the right. The reaction time and the count down are produced by 
using the variable T as a Joop counter. The Oric has two real time 
clocks but they both run too fast for this application. 


Scope for alteration 


You can make this game easier or more difficult by altering the 
number of key presses needed to scale one brick higher set in line 
640. The value is currently .25 which means that it takes four key 
presses for the man to scale one interval. Decreasing the value will 
make the game harder and increasing it will make it easier. 


Program 
10 REM Commando Jump 


20 PRINT CHR#¢17) ;CHREC4) 
30 GOSUB 970 


40 GOSUE 330 
70 GOSUB 1100 
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190 
200 


PAPER 7 


) IF KEY$<>"" THEN GOTO 45 


FLOY 1,2 a," 

FLOY 2,20,"Ready" 

WALT LOO+RND (1) #100 

FLOT er 

FLOT 20,CHR#(C12)+"Steady" 
WALT 1D0+kND C100 

FLOT wa 

IF KEY#<2"" THEN GOTO 250 
FING 

FLOYT 1,20,"GO" 

T= 9 

IF KEY#=""" THEN T=T+1i3GOTO 180 
T#T/S0 

RETURN 


PLOT 2,10,"Cheat" 
SHOOT 

WAIT 100 

PLOT 25405" i 
Ts 

RE TURN 


REM FLOT WALL 


H=1LO+INTCRND CL) x4) 

FOR T=18 TO 19H STEF ~1 
FLOT 9,1, CHR#¢1) 

PLOT 10,T5,'!"+CHR$ ¢0> 
NEXT I 

PLOT 9,18-H,CHR$C1> 

FLOT 10,18-H,"@"+CHRS$(0) 


450 
440 
470 
480 
490 


s10 
320 

y30 
od 
ooo 
hal ba 


540 


370 


590 


480 


690 
700 


ve 0 


735 


790 
800 
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Mé=" jump "“+STRé¢ JUMP) 

GOSUB 12303FPLOT 20,2,M% 
PLOT 13,18," 

GOSUE 60 

SOUND 1,18,15¢3PLAY 1,0,0,0 
IF Ts#3 THEN GOTO 740 

FOR T1868 TO 18-H+INT¢CTx28) STEP ~1 
PLOY 13,24," " 

FLOT 13,0-1,'" 

SOUND 1,IK4,15°3PLAY 1,0,0,0 
WAIT 2 

FLAY 0,0,0,0 

NEXT I 


J=ISL=INT(L) 
T#T+, 05 

IF T=§ THEN GOTO 696 

Mé="time left "#STRSCINTCCS-T)x10)/id.+"  " 
PLOT 5,21,M$ 

K$=KEYS 

IF K$="" THEN GOTO 580 

IF K$=.@ THEN GOTO 415 

FLOT 13,INTCL)," " 

JG"KS 

Js a core ae a) 

L=INT (J) 

PLOT 13,L,°#" 

IF Le#l7-H THEN FLOT 13,L+1," "GOTO 810 
GOTO 58d 


REM FALL DOWN 

FOR Tet TO 18 

ELOY ayleig 

PLOT idyts "8" 

SOUND 1,TK4,153FPLAY 1,0,0,0¢WAIT 5S 
NEXT I 

FLAY 0,0,0,0 

WATT 10 

FLAY 0,0,0,0 

JUMP = JUMP +1 


FLOT 5,21," r 
TF JUMP<#10 THEN GOTO 450 
RETURN 
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810 
820 
830 
840 
850 
840 
870 
880 
890 
900 
910 
920 
930 
940 


970 

780 

990 
1000 
1010 
1020 
1030 
1040 
1050 
1040 
1070 
1090 


1100 
1110 
1120 
1130 
1135 
1140 
1140 
1145 
1170 
1180 
1190 
1200 
1210 
1220 


FOR I=13 TO 5S STEF -1 

PLOT Dtigi yh" 

FLOT Ist,"8" 

WAIT 30 

NEXT I 

SOUND 1,L~-1,153FLAY 1,0,0,0 
FOR I=L TO 18 

PLOE Set—ty 

FLOT -3,15"8" 

SOUND 1,IK4,153FPLAY 1,0,0,0 
WAIT 10 

NEXT TI 

FLAY 0,0,0,0 

RETURN 


CH=44080 

FOR Q=1 TO 3 

READ C 

FOR IT=#0 TO 7 

READ D 

FOKE CH+tCx8+1I,D 

NEXT I 

NEXT Q 

DATA 33,0,63,63,63,63,43,63,43 
DATA 64,43,43,463,463,463,63,63,63 
DATA 35,12,12,63,390,30,18,18,18 
RE TURN 


TF JUMP <=10 THEN GOTO 1130 
FLOYT 25,19,"You FATLED " 

GOTO 1170 

M$="You took “+STRECJUMP D+" jump 
IF JUMPS. THEN Mé=Mé+'"'s" 
GOSUE I2303FLOT 20,5,Mt 

PLOT 20,46,'"'to clear the wall" 
TF KEY$<2"" THEN GOTO 11645 
FLOYT 20,8,"Anmother game Y/N" 
GET At 

PRINT CHRECL7) > CHRE CS) 

IF Ag="Y" THEN FUN 

FARPER 73 CLS 

END 


mW 
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1230 X=1 

1240 IF X>LEN(M$) THEN RETURN 

1250 IF ASC(MID$(M$,X,1))>31 THEN X=X+13 
GOTO 1240 

1260 M$=LEFT&S(M$,X-1)9+MID$ (M$, X+1) 

1270 GOTO 1240 


12 
Alien Invaders 


ANAHAHAHAHAAHANANA 

HFRARKFKFKRKRKARKAHREA 
Annanannananannnn 

HKRRKKARRRARARARAA 





Invaders from a hostile planet are heading towards earth in two 
types of spaceships and you and your Oric have to defend 
civilisation as we knowit. Your task is daunting — you have to ensure 
that none of the aliens get within firing range of earth. The point of 
no return is marked with an “X” on the left of the screen. Once any of 
the advancing ships pass this point the game is over — you will have 
lost. Your only hope is to wipe out the aliens with your missiles. 
Every missile that hits its target increases your chance of saving the 
world. 

If you play this game on a colour TV you'll see that the ships are 
red, green and blue. 


How to play 


You can move your missile launcher to left and right using the 
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appropriate arrow keys. Press the ‘up arrow’ key to fire a missile. 
You score points for every alien you hit, the ones further away from 
you counting for more points than the nearer ones. The game is over 
when you have destroyed all the invaders or when the nearest 
remaining ones reach the point marked by the X. 


Typing tips 


Notice the spacing of the graphics characters in lines 500 and 510. 
There is a space after the final character in line 500 and a space 
before the first character in line 510. The effect of this is to ensure 
that the rows of advancing ships are staggered with the ships in the 
second and fourth rows appearing in the spaces between those in the 
first and third rows. There are 26 spaces in the E¢ string (line 540). It 
is important that you count these carefully as they are required to 
test that alien ships have been hit. 


Subroutine structure 


20 Defines graphics characters 
400 Initialises variables and sets background colour to yellow 
500 Initialises strings 
1000 Plots aliens 
1100 Plots and moves missile launcher 
1400 Shoots missile 
1500 Fires missile and test for hit 
7000 Alien hit routine 
8000 Main play loop 
8500 End of game 


Programming details 


The alien ships are stored in strings. The front row (line 500) consists 
of 13 user-defined graphics characters (@) with blanks after each of 
them. The second row (line 510) consists of 13 other user-defined 
characters (%) arranged, by the simple device of printing a blank 
before each graphics character, so that the ships are staggered in 
relation to those in the first row. The third row (line 520) repeats the 
first and the back row (line 530) repeats the second. Line 540 sets up 
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a string of blank spaces equivalent to the length of each of the rows 
of invaders. This is used in lines 8160 to 8180 to detect whether any 
of the strings still contain aliens when they reach the critical screen 
location marked by the X. 

Line 7000 detects when an alien invader is hit. When this happens 
its position in the string is replaced by a blank space. This 
manipulation is carried out in line 7010 which divides the string at 
the appropriate point, inserts a space in place of the destroyed ship 
and then re-joins the two halves of the string. 


Scope for improvement 


You might like to add a routine to make the aliens shoot back at 
random so that the missile launcher faced the added problem of 
dodging enemy fire. If you want to make the game easier by 
lengthening the time before the alien ships move forward a row, 
increase the value to the right of the “>” sign in line 8010. 


Program 


10 REM Invaders 


400 
410 
420 
430 
440) 
450 


500 
520 


530 
540 


$ 


Alien Invaders 79 


=4#4080 

CHEAS+ CASCC'O")KB+0)0,12 
CHEAS+ CASC CUA") KB+1),30 
CHEAS+CASCC'@'")xXB4+2),463 
CHEAS+ CASCC'@")K84+3), 51 


. CHBAS+ (ASC C'@")*X8+4+4),51 


CHEAS+ CASC CUR") KB45), SL 
CHBAS+ CASCC'@")xXB+6),18 
CHBAS+ CASC O'R") X8+7),18 


» CHBAS+ CASC CTA) KB+0),12 


CHBAS+ CASCC'ZA')KB+1),30 


{E CHBAS+ CASCC'A" )KB+2),43 


RAR RRR x 
OPE PP PE Ti TTT TMT rrr rm 


ig 


Yet 
XL=10 
YM=0 

T= 0 
Sex 9 
PAPER 
Age"@ 
fi geas 

Ch=A$ 
Do=B$ 
Ege" 


CHEAS+ CASCC'K")KB4+3),43 
CHEAS+ CASCC"Z")xK8+4),30 
CHEAS+ CASCC' A") K84+5), 51 
CHBEAS+CASCC"“Z" )KB4+6),18 
CHBAS+ CASC CUA") XB4+7),18 
CHBAS+ CASC CUR KB4+0),12 
CHBAS+CASC CUE") KB4+1),12 
CHEAS+ CASC CH) KB4+2),12 
CHEAS+CASC CHE") KB4+3),30 
CHEAS+CASC CHE) KB4+4),30 
CHBAS+ CASC CR) KG4+5) , 43 
CHBAS+ CASC CE" KB+6) 443 
CHBAS+ CASC C4") KB+79,63 
CHEAS+ CASC C'S") K84+07,10 
CHBAS+CASC C"$")x8+1),34 
CHEAS+ CASC C'S") XB4+2),35 
CHEAS+CASC C'S") KB4+3),10 
CHEAS+ CASC C'S") KB+4+4),7 

CHEAS+ (ASC C'S") KXB45),13 
CHEAS+ CASC C'S") *KB4+46),41 
CHEAS+ CASC CUB") KB+7),41 


3 


@ 
ah 


@ee@ @ 
“aah 


@ @ 
vA 


@ @ 
nahin 


a 
vA 


@ @ 


vA te 
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1000 
1020 
1030 
1050 
1060 
1070 


1100 
1110 
1120 
1130 
1140 
1150 
1160 
1180 
L190 


1400 
1410 
1415 
1420 
1430 
1440 
L450 
1460 


CLS3FRINT CHR (17) ;CHRS C4) 
PLOT 1,5Y,A$% 

FLOT 1,Y+4,C% 

PLOT 1,Y+2,B4% 

FLOT 1,Y¥+6,D$ 

GOTO 8000 


REM MOVE LAUNCHER 

T=T+1 

PLOT XL,21,"8" 

Lé=KEY$ 

IF L$="" THEN RETURN 

PLOT XL,21," " 

IFASC(L$)=8 AND XLY1 THEN XL#=XL~1 
IF ASC(L$)=9 AND XL<31 THEN XL=XL+1 
PLOT XL,21,"#" 


REM SHOOT MISSILE 

IF ASC(L#)<>11 THEN RETURN 
ZAF 

FOR M#19 TO Y+6 STEP <1 
PLOT -XLoMs "4" 

PLOT XL,M+i," " 

NEXT M 

FLOT XL»M+i," " 


1500 
13510 
1520 
1530 
1540 
1550 
1540 
1570 

1580 
1590 
1400 
1410 
1620 
1430 
1450 
1640 
1470 
14680 
1690 
1700 
1710 
1720 
1750 


1740 
1770 


7000 
7010 
7020 
7500 
7310 
73560 
7370 
7390 
7395 


7396 
7600 
7610 
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Fs: Q 

Q$=D$iR=6 

GOSUB 7000 

D$=Q$ 

IF F=1 THEN GOTO 1750 

PLOT. Koy ttos he SPLOT Xs ¥tSsa"" ™ 
PLOT AL ¥t45 "0" SPLOT XE Ye) 
Qt=Chi k=4 

GOSUB 7000 

C$=Q$ 

IF F=1 THEN GOTO 1750 

PLOT Xbs¥tGe"s "SPLOT ML Yess * 


PLOT XL, tie 6 SRLS ML. 5 Cees) 
Q$=BS > R= 

GOSUB 7an0 

Bé=Q$ 

IF F=1 THEN GOTO 1750 

BLT AL e¥+i,". "SPLOT XL,¥+1," " 
PLOT AL Ss ¥ 5" e"3PLOT XLy¥y" ” 
Q$=A$ 3 R=0 

GOSUB 7000 

AG=Q$ 

IF A$=E$ AND BS=E¢ AND C#=E% AND D$=E$ 


THEN GOTO 9000 
IF Q6=E% THEN Y=Y+2iPLOT 1,Y-2,E% 
GOTO 1100 


IF MID$(Q$,XL,1)=" " THEN RETURN 
Q$=LEFT$(Q$,XL-1)+" "+MID$(Q$,XL+1) 
Fed 

SeS+10-Y 


Qt=MID$(CQ$,2Z)+LEFT#$ CQ, 1) 
FLOT XL,Y+k, "S$" 

EXFLODE 

M#$=STRE CS) 

IF ASCCLEFT&(M$,12)<32 THEN 
M$=RICHT$ (M$,LENCM$)-—1> 
FLOYT 10,25,"SCORE ="+M% 

Te Ted 

RETURN 
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8000 
8010 


8020 
8040 
8050 
8040 
8070 
8080 
8090 
8100 
8110 
8120 
8130 
8140 
8150 
8160 
8170 
8180 
8190 
8200 


8500 
8510 
9000 
9020 
9025 
9030 
9040 
9050 
9060 
9080 


FLOT 1,14,"X" 

IF Tx100+INTCRND(1)90) THEN Y=Y+2¢T=03 
PLOT 1,Y-2,E% 
A$=MID$(A$,2)+LEFTS (A$, 1) 

FLOT 0,Y,CHR$(1) +A$ 

GOSUE 1100 
E$=MID$(B$,2)+LEFTS(B$,1) 

PLOT 0,Y+2,CHR$(4)+B$ 

GOSUE 1100 
C$=MID$(C$,2)+LEFT#(C$,1) 

PLOT 0,Y+4,CHR$(2)+C$ 

GOSUB 1100 
D$=MID$(D$,2)+LEFTS(D$,1) 

FLOT 0,Y+6,CHR$(4)+D$ 

GOSUB 1100 

IF Yr14 THEN GOTO 8500 

IF Y>12 AND B$<>E$ THEN GOTO 8500 
IF Y>10 AND C$<>E$ THEN GOTO 8500 
IF Y=8 AND D$<>E% THEN GOTO 8500 
T=T+1 

GOTO 8000 


PRINT "THEY GOT YOU" 

GOTO 9020 

PRINT "YOU SAVED THE WORLD" 
INFUT "ANOTHER GAME Y/N"5Z% 
PRINT CHR¢¢17) 3 CHRS C4) 

IF Zé="Y¥'" THEN RUN 

INK 0 

PAPER 7 

CLS 

END 


13 
Mirror Tile 


You did it in _2 moves 
Another goae ? 





Although your Oric opens up lots of new possibilities for games, it’s 
good to know that it can also conjure up old favourites. Mirror Tile 
is a colourful and versatile version of a game that is conventionally 
played ona small board with the pieces slotted into one another and 
into their surrounding frame. This construction is vital to the game, 
the object of which is to re-arrange the pieces to match a given 
pattern — hence it’s title “Mirror Tile”. 

If you have never played with a tile puzzle, look at the illustration 
of the game’s display. You'll see a four-by-four square of letters and 
you'll notice that one position is empty. In other words there are 
fifteen letters and one hole. The hole allows you to move the letters 
around the board. 


84 Oric Book of Games 


How to play 


Imagine for a moment that the board was really made of plastic 
pieces. You could slide a piece that was either above or below or to 
either side of the hole into it and the position of the piece you moved 
would then be empty - that is, it would become the hole. Notice that 
there are only a limited number of possible moves - two, three or 
four depending on the position of the hole, and that it is impossible 
to move on the diagonals. 

These same rules apply to the Oric version of the game. You can 
move any letter that is directly to the left or right of the hole or just 
above or below it. To indicate your choice you type in the number (1 
to 16) of the square containing the piece you want to move. If you try 
to make a wrong move the Oric won’t let you. Instead it will be 
helpful and number each square for you, in case your mistake was 
due to typing in the wrong number for your choice. If you want to 
see these numbers displayed, type any letter key — in fact any key 
other than one for a legal move. 

When you RUN this program the first thing it asks you is whether 
you wish to input your own set of words. If you reply “N” then the 
square will fill with the letters A to O. If you prefer to select your own 
starting arrangement you will be asked to type in three four-letter 
words, and one three-letter word. Of course, this means you can 
vary the difficulty of the puzzle. If you choose words that repeat 
some letters the game will actually be easier. For example, typing in 
ROOF, CATS, RENT and TENT would give a fairly simple game. 
The most difficult puzzle is one where every letter is different, e.g. 
HOME, CART, WING and SKY. 

Once you’ve typed in your words, you'll see them being shuffled — 
the program will already have asked you how many shuffles it 
should perform and the more it shuffles the more difficult you will 
find it. Then it’s your turn — to sort them out again into the initial 
arrangement. Your Oric will count your moves and let you know 
how many you took at the end of the game. 


Typing tips 


When you type in lines containing messages or input statements you 
will notice that there are often spaces beyond the last letter of the 
text and before the final double quotes. Do type in these extra spaces 
as they are needed to blank out any previous input. 
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Subroutine structure 


30 Defines arrays 
50 Sets up game 
140 Main play loop 
180 End of game 
230 Checks for end of game 
320 Sets ups default (alphabetic) board 
460 Prints frame 
750 Shuffle routine 
900 Prints number overlay 
990 Blanks out previous messages 
1090 Move logic 
1320 Locates empty space 
1410 Prints title and initial questions 
1550 Performs move 
1610 Asks for input of words 
1950 Updates positions 
2010 Defines graphics characters and sets up screen 
2270 Moves cursor to position 
2310 Removes attribute codes from Q¢ 


Programming details 


This program is complicated both because of its length and also 
because it involves a lot of logic. However, its subroutine structure is 
very clear and if you follow it through you should be able to see what 
happens at every step. 

Subroutine 2270 is used to move the text cursor to the row and 
column position stored in the variables ‘ROW’ and ‘COL’. This 
subroutine allows you to PRINT text or INPUT from any screen 
position. 


Scope for improvement 


Adding to a program that is already as long as this one may seem to 
be a tall order. However there is actually scope for improvement. A 
routine that reminded the player of the target arrangement might be 
a very useful extra. 
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Program 


10 


30 
4i) 


130 


140 
150 
140 
170 


180 
182 
183 
190 
195 
200 
210 
220 


230 
240 
250 
240 
270 
280 
290 
300 
310 


REM Mirror Tile 


DIM BC4,4) 
DIM BSC14) ,WEC14) 


GOSUE 1410 

GOSUEB 320 

IF WR=1 THEN GOSUB 1410 
MOV=0 

ER=0Q 

GOSUB 2010 

GOSUB 440 

GOSUE 1320 

GOSUE 750 


GOSUE 1090 
GOSUE 230 
MOV=MOV4+L 
IF FIN@>0 THEN GOTO 140 


Q$=STR#¢¢CMOV)ISCOSUB 2310 

FLOT 1,24,"You did it im "+Q¢+" moves" 
COL#13ROW=253COSUE 2270 

INFUT "Another game "ZA 

PRINT CHR# C17) 

IF Ag="Y" THEN RUN 

CLS 

STOF 


FIN=0 


FOR I=1 TO 4 
FOR J=i TO 4 


IF Bé¢(BCL, J) <2W$CK) THEN FIN=1 
NEXT J 
NEXT I 
RETURN 


320 
330 
340 
350 
3460 
370 
380 
390 
400 
410 
420 
430 
44] 


440 
470 
480 
490 


S10 
320 
920 
930 
940 
S50 


360 


380 


740 
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B$ (CK) =CHRS$ C64+K) 
BCL, J) =K 

NEXT d 

NEXT I 

B$¢14)=" " 

FOR IT#1 TO 14 
W$(L)=B6¢L) 

NEXT I 

RETURN 


INK 4 

PAPER 4 

FOR I=0 TO 3 

FOR J=0 TO 3 

PLOT 10+JX3,4+Ixg," '§" 
NEXT J 

FOR J=0 TO 3 

TH=" "FRSC BCL+1,d+1) +08" 
PLOT 104+J3K3,5+1K3, 7S 
NEXT J 

FOR J=0 TO 3 

PLOT 104+3K3,46+1x3,"@@#" 
NEXT J 

NEXT I 

FOR I=0 TO 11 

FLOT 10+2,3,ASC¢6"%")4+128 
PLOT 104+7T,146,ASC("$")+128 
FLOT 9,4+LD,ASCC'C') +128 
PLOT 22,4+1T,ASC("4")+128 
NEXT I 

PLOT 9,3,ASCC"&') +128 
PLOT 22,14,ASC("~")+128 
PLOT 22,3,ASCC"C")+128 
PLOT 9,16,ASC¢6"I")+128 
RE TURN 
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750 
740 
770 
780 
790 
800 
810 
820 
830 
840 
850 
840 
870 
880 
890 


700 
905 
910 
920 
730 
935 
940 
930 
960 
970 


990 
1000 
1010 
1020 
1030 
1040 
1050 
1055 
1060 
1070 


IS=43 JS=4 

LT¥=0;4NY=0 

FOR D=i TO S 

T=IS3J#JS 

IF RND(1)>.5 THEN GOTO 830 
L=IS+INTCRNDC1L)*2)x2~1 

IF I=4 OR I<1 THEN I=IS:GoOToO 830 
GOTO 850 
J=JS+INTCRND (CL) *2)x2~1 

IF J=4 OR J<i1 THEN GOTO 780 

IF I=LY AND J=JY THEN GOTO 780 
TY=ISiJUY=JS 

GOSUB 1550 

NEXT D 

RETURN 


{2 

ER= 1 

FOR I=0 TO 3 

FOR J=0 TO 3 

ek L 
Q$t=STR$CK)SGOSUB 2310 
FLOT 10+JK3,4+1xK3, 0% 
NEXT J 

NEXT I 

RETURN 


FOR L=0 TO 3 

FOR F=0 TO 3 

PLOT 104+FX3,4+L*3," " 
NEXT F 

NEXT L 

IF ER=0 THEN RETURN 
COL#1LiROW=21°3GOSUB 2270 
PRINT SPCC64) 

ER = 0 

RETURN 


100 
1100 
1110 
1120 
1130 


L140 


Lisa 
1160 
1170 
1180 
1190 
1200 
L210 
1220 
1230 
1240 


250 


1260 
1270 
1280 
1290 
1300 
1310 


1320 
1330 
1340 
1350 
1340 
L370 
1380 
1390 
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FLOT 1,20,"What i565 your move rm 
COL#L43ROW=203GOSUE 22703 INFUT M4 

IF M#=""" THEN GOTO 1090 

TF VLEN(M$)«2 THEN M$="0'"4+M$ 

IF MID&¢M$,1,292°0" OR MIDSCMG,1,192'"9" 
THEN GOSUE 900:GOTO 1090 

IF MID#CM$,2,12392°0" OR MIDSCM$,2,192"9" 
THEN GOSUE 9003CGOTO 1090 


M=VAL (M$) 
IF M0 AND M217 THEN GOTO 1220 
ER=1 


FLOT 1,21,"A move must be 8 mumber between " 
PLOT 1,.22,"1 and 16 as shown" 

GOSUE 900 

GOTO 1090 

TINT CCM~1)/4) 

JeM~ 0K 4 

Le T+ 

IF ABS CI-TS>+ABSCIJ-JS)=1 THEN GOSUE 1550% 

RE TURN 


FING 

ERS 1 

PLOT 1,21,"You can only move a tile mext to" 
FLOT 1,22,"the space a 

GOSUE 900 

GOTO 1090 

(9) 


FOR Lei TO 4 

FOR Fel TO 4 

rd 6a On & 

IF EBCP,L#16 THEN IS=L3US=F 3MS=kK 
NEXT F 

NEXT L 

RE TURN 
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1410 
1420 
1430 
1440 
1450 
1440 
1470 
1490 
1500 
L510 
1520 
1530 
1540 


1550 
1540 
1570 
1580 
1400 


TEXTIFPAPER 7SINK OS PRINT CHR#¢17>°CLS 
FLOYT 10,5,°M i r ror Til e" 

FLOT 5,10,"Do you want to input your" 
FLOT S,i1,"own set of words" 
ROW=L1LICOL=1S:3:GOSUB 2270 

INFUT At 

IF Ag="Y" THEN WReLiGOTO 1510 

IF A¢s="N" THEN WReO?GOTO 1510 
CLS:GOTO 1420 

FLOT 3,15,"How many shuffles " 
ROW=1953COL=18iGOSUB 22703 INFUT $ 

IF S<1 THEN GOTO 1510 

RETURN 


GOSUB 990 
GOSUB 1950 

PLOT Li+(d-1)«3,5+(L-1)«3,B6 (8 (I,J?) 
PLOT 11+(US~1)«3,5+(IS-1)*3,6$(B(IS,dS)) 
RETURN 


1610 
1620 
1630 
1640 


1650 
1440 
1670 
1680 
1490 
1700 


1710 
1720 
1730 
1740 
1750 
1740 


1770 
1780 
1790 
1800 
1810 
1820 


1830 
1840 
1850 
1860 
1870 
1890 
1900 
191.0 
1920 
1930 


1950 
1960 
1970 
1980 
1990 
2000 
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CLS 

FRINT "Choose 3 four Letter words" 
FRINT “and 1 three letter word," 
INFUT "Type in the first four letter 
word "SAS 

IF LENCA$?<2>4 THEN GOTO 1640 

FOR Is1 TO 4 

W¢CL)=MID$CAG,1I,1> 

NEXT I 

PRINT "First word= "SA 

INFUT "Type in the second four letter 
word "SAG 

IF LENCA$I<>4 THEN GOTO 1700 

FOR I=5 TO 8 

WECT)=MID$ CAG, I-4, 1) 

NEXT I 

FRINT "Second word= "jZAaA¢ 

INFUT "Type the third four letter 
word "3 At 

IF LENCA$I=S4 THEN GOTO 17640 

FOR Is9 TO 12 
WE(L)=MID$ (At, I~-8,1) 

NEXT I 

FRINT "Third word= "JAG 

INFUT "Type in the three letter 
word "SAS 

IF LENCA$)<>3 THEN GOTO 1820 

FOR L#13 TO 13 
W$(L)=MID# (A$, I-12,1) 

NEXT I 

FRINT "Fourth word= "Jag 

WECLS)et 1 

FOR I=1 TO 16 

Bé (Ld =W$ oT) 

NEXT I 

RE TURN 


E(1S,d8)=6(I,d) 
ECL, J) #16 
T=I$t1S=I 
T=TiT=J 
J=JUS3US=T 
RETURN 
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2010 
2020 
2030 
2040 
Z050 
2040 
2070 
2080 
2090 
Z100 
Z110 
2120 
2125 
2126 
2130 
2140 
2150 
2140 
2170 
2180 
2190 
2200 
2210 
22k; "0 


22460 


2270 
2280 
2290 
2300 


2310 
2320 
2330 


2340 
2350 


CH=446080 

FOR I=0 TO 7 

READ D1,D2,03,04,05,D46,D7,D8,D9 
FOKE CHtT+8xASC CH") DL 
FOKE CHtl+8xASC CHE") ,D2 
POKE CHtl+8xASCC'@"),D3 
FOKE CH+tT+8xASC CUA") D4 
FOKE CHtl+8xASC CNA“) DS 
FOKE CH+tT+8xASC CUR"), DS 
FOKE CH+tT+8xASC¢'-") ,D?7 
POKE CHtl+8xASCC'L'),D8 
POKE CH+I+8xASCC'I') ,D9 
FOKE CH+lT+8x ASC C'$") ,63-D4 
FOKE CH+T+8xASCO' CO") ,43-D5 


NEXT I 

DATA 1,1,0,0,48,0,48,0,15 
DATA 1,1,0,0,48,0,48,0,15 
DATA 151,0,0,48,0,48,0,15 
DATA 151,0,0,48,0,48,0,15 
DATA 151,0,43,48,15,0,48,0 
DATA 1,1,0,43,48,15,0,48,0 
DATA 151,0,463,48,15,0,48,0 
DATA 1,63,63,43, 43, 15,0,48,0 
CLS 

RE TURN 


DOKE #12, 48040+ROWK40+COL-1 
FOKE #248, ROW+1 

POKE #€249,COL/2 

RETURN 


Kah 

IF XSLEN(CQ$) THEN RETURN 

IF ASCCMID$(Q$,X,1))231 THEN X=X+13 
GOTO 2320 

Q¢=LEPT& COS, X-LI+hRIGHT$ CO, LENCQ$ I-13 
GOTO 2320 


14. 
Pot Shot 





This game provides the ideal type of target practice. However many 
times you score a direct hit, the magic bird continues to fly on, 
allowing you to take aim and fire again and again. The elements of 
this game are simple - a blue sky with a single pink cloud, a bird 
winging its way from left to right and your rifle sight. The object is 
straightforward - to line up the sight with the bird and shoot it. But 
in practice its not that simple. For one thing every time you fire your 
rifle ‘kicks’ to one side or the other so you have to re-align your sight 
for another shot and for also the birds (and your sight too) 
disappears behind the cloud when they reach it. A total of five birds 
fly across the sky and there is no limit to the number of hits you can 
score — your total for each bird and the whole game are displayed at 
the end. There is a sound every time you fire your rifle and a 
distinctively different sound when you hit the bird. 
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How to play 


To hit the target you have to line the cross point of your sight up with 
the centre of the bird. Use all four arrow keys to move your sight and 
press the space bar to fire. There are five birds in all and you may hit 
each one as often as you can. 


Subroutine structure 


20 Sets mode and call initialisation routine 
40 Main play loop 
110 Plots cross 
180 Moves sight, calls firing routine and moves bird 
390 Draws cloud and sets up display 
580 Draws bird 
680 Shoots, tests for hit and recoils sight 
740 Sets up screen, defines graphics characters and envelope 
940 End of game 


Programming details 


The rifle shot sound is produced using the Oric’s pre-programmed 
SHOOT command in line 680. The use of high resolution graphics 
in this program means that the range and smoothness of both the 
bird and the rifle sight is better than could be achieved with low- 
resolution graphics. Both the bird and the cross are drawn using the 
invert colour action of the CURSET and DRAW commands. This 
changes background points to foreground points the first time a 
shape is drawn and vice versa the second time the shape is drawn. In 
this way both the cross and the bird are self blanking - drawing them 
once makes them appear and drawing them again in the same place 
makes them disappear. Another interesting point about the Oric’s 
colour handling can be seen in the use of the FILL commands, lines 
460 and 480, to change an area of the screen to background points 
displaying inverted colour. As the background colour is cyan the 
cloud area produced by FILL shows red. The function POINT is 
used in line 685 to discover if the target has been hit. It is also 
interesting to note the way the bird’s flight path is calculated and 
stored in the array B in line 800 for use later in the program. 
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Scope for improvement 


To make this program even more of a challenge you could add more 
than one cloud and allow the bird to have more than one path across 
the sky. 


Program 


10 


REM Fot Shot 


FRINT CHRS¢17) ;CHRS (C4) 
GOSUB 740 


FOR G=1 TO 5 
GOSUB 390 

FRINT "Bird "363 
GOSUB 180 

NEXT G 

GOTO 940 

STOF 


REM cross 
CURSET X-6,Y52 
DRAW 12,0,2 
CURSET X,Y-6,2 
DRAW 0,12,2 
RETURN 
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180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 


390 
400 
410 
420 
430 
440 
450 
440 
470 
480 
300 
310 
520 
330 
340 
350 
340 
370 


A$=KEY $ 

GOSUB 110 

J=B¢L) 

GOSUB 380 

IF A$=""" THEN GOTO 270 

IF ASCCA$)=8 AND X>15 THEN X=X~-8 
IF ASC(CA$)=9 AND X2225 THEN X=X+8 
IF ASCCA$)=10 AND Y#175 THEN Y=Y+8 
IF ASCCA$)=11 AND Yr15 THEN Y=Y~-8 
T=I+4 

J=B¢T) 

GOSUE S380 

IF A=" " THEN GOSUB 680 

GOSUB 110 

IF FIN=1 THEN FIN=03 RETURN 

WAIT 2 

GOTO 180 


REM start 

HIRES 

FRINT CHR$¢17) 
FAFER 43 INK 0 

Je INT CRND C1) *30)04+15 
ReINT CRND C1) *100)2+20 
CURSET R+14,J,0 
FILL 10,5,128 
CURSET R+8,J5+8,0 
FILL 10,5,128 

FIN= 0 

X= INT CRND C1) *302+30 
Y=75 

T=25 

GOSUB i110 

J=B¢T) 

GOSUE 5380 

RE TURN 


380 
390 
600 
610 
620 
630 
640 
650 
655 
656 
6460 
670 


680 


830 
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CURSET I-8,J0,2 

DRAW Zemege 

DRAW 2,0,2 

DRAW 2,+2,2 

DRAW 4,0,2 

DRAW Ato 5 

DRAW 2,0,2 

DRAW 2,+2,2 

CURSET I-2,J5+1,23DRAW 4,0,2 
CURSET I-2,5+2,23DRAW 4,0,2 
IF Is228 THEN FIN@1 

RETURN 


SHOOT 


j FPOINT(X,Y)+POINT(X,Y+2)+POINT(X,Y~2) 


IF F=0 THEN X=X+10-INTCRND(C1)*20) SRETURN 
X=#X+1LO-INTCRND(1)*20) 

ZAF 

H(G=H(G)+1 

RETURN 


HIT=0 

TEXTSCLS 

FAFER G&3INK 0 

PLOT 10,10,"F 0 T S$ HOT" 
DIM B¢(235) 

FOR I=1 TO 235 STEF 4 

BCD) =INTC304+¢€125-I)«C125-1)/200) 
NEXT I 

DIM H(S) 

RETURN 
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940 
9350 
740 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1055 
1040 
1070 


TEXTSCLS 

INK 73FAFER O03T=0 

FOR I=1 TO % 

M$="Bird "#STR¢CLDT)+" nit "“+STRECHCT)) 
FLOT 10,I+5,M% 

NEXT I 

M$="Total hits= "+STR¢¢T) 
FLOT 10,12,M% 

FLOYT 10,14,"Another game Y/N 
GET At 

FRINT CHR$¢(17) ;CHRE( 4) 

IF Ag="Y" THEN RUN 

IF A¢=>"N" THEN GOTO 1020 


I5 
Save the Whale 





This is a moving graphics game for conservationists! The object of 
the game is to ensure that the whale survives to swim on in arctic 
seas. You have to outwit the eskimos who are hunting the whale in 
their kayaks. If they run into the icebergs they will have to abandon 
their hunt so you must lure them towards these obstacles by moving 
the whale in such a way that, in approaching it, the eskimos crash. 


How to play 


At the beginning of the game you can select the difficulty level for 
your turn. Your selection governs the starting positions of the 
icebergs and so makes the game easier or harder to play. To move 
the whale, which stands out by being black ona yellow ground, you 
press any of the arrow keys. You will know when to moveas you will 
hear a signal. If any kayak runs into an iceberg the kayak vanishes, if 
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the whale runs into an iceberg the iceberg vanishes — this of course 
reduces his protection so it’s not advisable except in extreme 
circumstances — and if an eskimo reaches the whale he harpoons the 
whale and kills him. The game is over when all the eskimos have 
been removed from play or when the whale is dead. 


Subroutine structure 


15 Sets up graphics characters and arrays 
150 Title frame 
280 Prints kayaks 
350 Prints icebergs 
410 Prints whale 
450 Main play loop 
520 Checks for game over 
540 Move whale routine 
680 Move kayaks routine 
790 End of game 


Programming details 


The initial positions of the kayaks are set at random withina band at 
the edges of the screen (lines 290 and 300). The initial positions of the 
icebergs are set in a similar fashion (lines 370 and 380) but account is 
also taken of the difficulty factor, ‘D’, input at 230. The SCRN 
function is used in line 740 to detect whether a kayak has landed on 
an iceberg — in which case that is the end of the kayak. The 
alternative method of simply comparing co-ordinates is used in line 
750 to detect whether a kayak has landed on the whale - in which 
case that is the end of the whale (and the game). 


Program 


10 REM Save the Whale 


150 
155 
160 
170 
180 
190 
200 
210 
220 
225 
230 
240 
250 


260 


280 
290 
300 
310 
320 
330 
340 


350 
360 
370 
330 
370 
400 


Save the Whale 101 


DIM XCZ20),¥¢20),UC209,VC20) 
PRINT CHR& C17) > CHR C4) 
CH=44080 

FOR Q=1 TO 3 

READ C 

FOR T=0 TO 7 

READ D 

FOKE CH+tOx@+T, D 

NEXT I 

NEXT Q 

DATA 33,0,0,24,40,61,43,41,0 
DATA 64,0,14,58,42,43,43,43,0 
DATA 3350.36,44,285,63,31,4,3 


CLS 

PAPER 43 INK 7 

FLOT 2,2,"S AVE THE WHAL E" 

PLOT 2,5,'"In this game, you, the whale |" 

FLOT 2,7,"must outwit the eskimoes hunting" 
FLOT 2,8,"you in their kayaks #" 

PLOT 2,10."by luring them onto the iceberas @" 
FLOT 2,125"Which difficulty: level do you wish to" 
FLOT ZelBs,"play BbLreoe" 

FLOT 13,15,"C1) expert" 

PLOY S,17,"'¢2) intermediate, (3) movice "GET D 
TF Del OR De3 THEN GOTO 230 

CLS 


PAPER 4 


FOR C#1 TO 20 
X#SGNCRENDC1)-.5)« CINT CRNDC1)*5)410)415 
Y=SGNCRND(C1)—. 5) 8 CINTCRND CL) KS )4+6) 441 
PLOT X,Y» tak" 

KX CC ) eX 

YCC)sY 

NEXT C 


REM ICEBERGS 

FOR C#1 TO 20 
UCC)#SGNCRNDC1)9~-. 5) x CINTCRND (1) XS )45-D)415 
VCC) =SGNCRNDCL)~.5) *CINTCRND (1x5 )4+3~-D)4+9 
PLOT Ucl),¥cld,"e" 

NEXT C 
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410 
420 
430 
440 


450 
460 
470 
480 
490 
500 
51.0 


v20 


330 


340 
S50 
340 
370 
380 
590 
600 
610 
S20 
630 
640 
650 


680 
690 
700 
710 
720 
730 
740 


730 
740 
770 
780 


REM PRINT WHALE 

Xe INTCRNDC1)*2)+10 
Y*INTCRNDC1)*2)+10 
FLOT X,Y, ASCC'!")4128 


GOSUB 540 

F=0 

FOR C=1 TO 20 

IF X(C)#0 THEN GOTO Si0 


GOSUB 480 
NEXT C 


IF F=0 THEN GOTO 830 
GOTO 450 


FING 

LEX PVYxyY 

GET AS 

IF ASCCA$)=8 AND X>1 THEN X=#X~1 
IF ASCCA$)=9 AND X31 THEN X=X+1 
IF ASCCA$)=10 AND Y“20 THEN Y=Y+1 
IF ASCCA$)=11 AND Yo1 THEN Y=Y~1 
REM BLANK WHALE 

PLOT Z2)V5" ™ 

REM PRINT WHALE 

PLOT X,Y,ASCC' 1") +128 

RETURN 


FLOT X(C),Y¢C)," " 

Ex 

E=SGNCX(C)-X) 

X(C@INTCXCC)-E) 

E=SGNCY(C)-Y) 

YCOQO#INTCY CCE) 

IF SCRNCX(C),Y¢(C))=64 THEN X(C)=03ZAFS 
GOTO 780 

IF X¢C)=X AND YCC)=Y¥ THEN GOTO 790 
REM FRINT KAYAK 

FLOT XCC),YCC), "" 

RETURN 


790 
800 
810 
820 
830 
840 
850 
B40 
8465 
870 
880 
890 
700 
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REM KILL WHALE 

FLOT X€C),Y¢C)," " 

FLOT 1,19,"You were killed" 

GOTO 840 

FLOT 1,19,"You escaped this time " 
PLOT 1,20,"Another game Y/N"iGET At 
FRINT CHR ¢€17) 3 CHR$C46) 

IF At="Y¥" THEN RUN 

IF Age>"N" THEN GOTO 840 

CLS 

FAFER 7 

INK 0 

STOF 


16 
Mighty Missile 


Shield stre th 
Attacker 3 Aits 


49 
8 





Your weapon can destroy anything — anything that it actually hits. 
So the only problem in this game is to ensure that the missile finds its 
target, quickly and accurately. The enemy ships sweep in from the 
left and the right firing relentlessly. Your missile is only vulnerable if 
its protective shield is eroded away and then it can be easily blasted 
in its home base. Otherwise, it is impervious to enemy fire, even 
outside its base. If it hits an enemy it will explode on contact but if 
it fails to find its target it will disintegrate as it reaches the upper 
atmosphere. You can launch ten missiles and there are ten enemy 
ships. Each ship maintains a stable orbit until you actually take a 
shot at it — so you can wait in the base while deciding which side to 
fire from and when to fire —- except that with every orbit more of your 
shield is blasted away by enemy fire and once there is only 50% of it 
left you will no longer have any protection from the enemies’ lasers. 
This fast moving graphics game is enhanced by sound effects and is 
quite compulsive to play. 
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How to play 


In this game it is important to notice how much ‘Shield strength’ you 
have left since when the figure displayed drops to 50% you will be 
vulnerable to attack. Once the shield is so eroded the enemy laser is 
able to home in and destroy you wherever they hit you, including 
inside the missile base. The object of the game is to score as many 
hits as possible so it is worth watching each new enemy skip’s orbit at 
least once or twice before you try to shoot it down. To fire you have 
to leave your base. Do this by pressing the right or left arrow key. 
This will take you to a fixed position on the right or left of the screen 
and launch the missile. Remember to take into account the time it 
will take for your missile to reach the enemy ship which will continue 
on its path! At the end of the game your score is displayed and you 
are given the option of another game. 


Subroutine structure 


20 Set up 
70 Main play loop 
310 End of game 
380 Prints attacker and fire laser 
500 Checks to see if player has activated missile 
620 Calculates shield strength 
710 Moves and fires missile and tests for hit or miss 
780 Explosion graphics and sound 
940 Sets up attack orbit 
1070 Prints shield 
1200 Defines graphics characters and sets up screen display 
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Programming details 


As this program has a clear structure and uses separate procedures 
for most of its major elements, you should find it relatively easy to 
follow. One interesting point to note is the way in which the path of 
the attacking ship is calculated in subroutine 940 and stored ina pair 
of arrays X and Y to be used repeatedly for the various orbits used 
during the game. A second point of interest is that although high 
resolution graphics are used for the laser zap and the shield the 
spaceships and the explosion are both low resolution user-defined 
graphics characters. The shield is an area of inverse foreground 
colour produced by the FILL command. As the laser beam works by 
first drawing a line in the foreground colour and then blanking this 
out by drawing a line in the background colour, it whittles the shield 
away by changing parts of it to inverse background colour - red. The 
strength of the shield is estimated, in subroutine 620, by the number 
of foreground points left in the shield, using the POINT function. 
POINT is —1 if the point at the x,y co-ordinate is foreground and 0 if 
it is background. 


Program 
10 REM Mighty Missile 


20 TEXTS FAPER 6¢INK OfCLS 
30 GOSUB 1200 
40 GOSUB 940 
90 GOSUE 1070 
60 GOSUB 620 
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FOR A=1 TO 10 

DIR=SGNCRNDC1)-0.5) 

PRINT "Attacker "SAS" Hits ="SHIT 
Re7<INTCRND C1) ®14) 44 

IF Red THEN S#S-RIE#36 

IF Rs=0 THEN S#S3E=346—-k 

IF DIk=-1 THEN T=SiSsEtE=T 

FOR Is§$ TO — STEF DIR 

GOSUB 380 

GOSUE SO 

IF Fei THEN GOSUB 710 

NEXT I 

CURSET X(T), Y¢CT+R),33CHAR ASCC"8"), 0,0 
IF Fel THEN FINe1 

IF FINe=2 THEN AF11:GOTO 300 

GOSUE 420 

IF Feil THEN F#O3CURSET MX,MY,33 
CHAR ASCC'!"),O,1SEXFPLODESWATT 200 
CURSET MX,MY,3°CHAR ASCC'@"),0,0 
CURSET MX,MY,33CHAR ASCC'!"),0,0 
MX#1Z203MY=185 

CURSET MX,MY,3:2CHAR ASCC'@"), O51 
IF FIN@=0 THEN GOTO 150 

FIN=0 

NEXT A 


WAIT 200 

TEXTICLS 

IF FIN#=2 THEN FRINT "THEY GOT YOU" 
PRINTIF RINT "YOU HIT "SHIT 

PRINTS INEFUT “ANOTHER GAME" 3 AS 

IF Age"¥"' THEN RUN 

STOF 
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380 
390 
400 
410 
415 


420 


430 
440) 
450 
460 
470 
#80 
490 


300 
a10 
320 
930 
240 
550 
360 
570 
320 
600 
610 


620 
430 
640 
650 
640 
670 
680 
690 
700 


710 
720 
730 
740 
730 
740 
770 


REM ENEMY 

CURSET X(T), Y¢(L+R),33CHAR ASCC"&"),0,0 
CURSET X¢CI+DIR),YCLI+R+DIR) , S33 CHAR ASCC'R") 5 Oye 
IF RNDC1)<.5 THEN RETURN 

IF F=1 THEN GOTO 430 

IF Ce=50 AND ABSCMX-X(I+DIR) 26 THEN FIN=23 
GOTO 840 

CURSET X(L+DIR)D+3,YCL+R+DIR) +5, 1 
D=Z0-INTCRND C1) x40) 

DRAW D,40,1 

ZAF 

CURSET XCLI+DIR)I +3, Y(T+R+D IR) +4, 0 

DRAW D»40,0 

RETURN 


REM FIRE 

IF F=1 THEN RETURN 

AG=KEY $ 

IF Ag=""" THEN RETURN 

CURSET MX,MY,3°3CHAR ASC("@"),0,0 

IF ASCCA$)=8 THEN MX=MX-453G0TO 590 
IF ASCCA$)=9THEN MX=MX+453GOTO 590 
RE TURN 

CURSET MX,MY,3°3CHAR ASCC"'@"),0,1 


eo § 

RE TURN 

REM SHIELD STRENGTH 
C= 

J=145 


FOR IT#91 TO 149 

C=C~POINT (I, J) 

NEXT I 

C=INT(C/S9x*100) 

PRINT "Shield strength "3cpy" a" 
RETURN 


REM GUIDE MISSILE 

CURSET MX,MY,33CHAR ASCC"@"),0,0 
MY=MY~4 

IF MY210 THEN FeOS3FIN=13GO0TO 840 
CURSET MX,MY,3:CHAR ASCC"@"),0,1 

IF ABS CMX-XCI+DIR) 26 THEN RETURN 
IF ABSCMY-YCL+R+DTR) 26 THEN RETURN 


780 
770 
795 
820 
830 
835 
840 
8350 
840 
870 
880 
890 
900 
710 
920 
930 


940 
930 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1040 


1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
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FIN=1 

CURSET MX,MY,3:CHAR ASC("@"),0,0 
CURSET X(I+DIR),YCLI+R+DIR) ,3 
HIT#HIT+1 

as Q 

GOTO 840 

CURSET X(I+DIR)+3,YCLI+R+DIRD+4,3 
DRAW MX~X(I+DIR)-1,MY~-Y¥CLI+R+DIR)~6,1 
CHAR ASCC'!"),0,1 

EXPLODE 

WAIT 150 

IF FIN=2 THEN GOTO 920 

CHAR ASC C"!"),0,0 

CURSET X(I+DIR),YCI+R+DIR), SI CHAR ASCC'&"),0,0 
I#E+DIR 

RE TURN 


REM CALCULATE FATH 
DIM X(50),Y¢50) 
X203Y=0 

N=39 

FOR I#1 TO N 

X2X+5 
Y=120~-INTCCLOG~-X)2KC100~X)/100) 
XCI) =X 

YCI)=¥ 

NEXT I 

T=1 

HIT=0 

RE TURN 


REM DRAW SHIELD 
CURSET 90,140,3 
FILL 30,10,255 
MX=1203MY=185 
CURSET MX,MY,3 
CHAR ASC("@"), 0,1 
F=Q 

FIN=0 

RETURN 
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1200 
1210 
1220 
1230 
1240 
1250 
L240 
1270 
1275 
1280 
1290 
1300 
L310 
1320 
1330 
1340 
1350 


REM DEFINE GRAPHICS 
CH=44080 

FOR Q=1 TO 3 

READ C 

FOR I=0 TO 7 


READ D 
FOKE CH+Cx8+T,D 
NEXT TI 
NEXT Q 


DATA 33,2,33,6,38,48,6,22,33 
DATA 64,12,30,12,12,12,30,63,0 
DATA 38,21,31,14,4,4,4,0,0 
HIRES 

FAPFER & 

INK 0 

CLS 

RE TURN 


17 
Nine Hole Golf 


Biastamce to nex 
ubich club (1 ¢ 





This is a graphics game that combines both driving and putting and 
even includes the hazard of bunkers. You play around a nine hole 
course with two stages at each hole - the fairway and the green. 
When you RUN it notice how, in the first stage, the golfer makes his 
swing and how the ball flies through the air. 


How to play 


At the start of each hole you are told the distance to the hole - 
marked on the screen by a flag - and asked to select which club you 
wish to use. If you’ve ever played golf, or watched it on TV, you'll 
know that the lower the number of the club the further it will drive 
the ball. In other words, select the 1 iron to drive a long way and 8 
iron for the really close shots. If you land ina bunker you'll find that 
you next shot is not as effective as it normally would be. If you 
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overshoot the green you'll get a new go at the hole and if you drive 
the ball off the screen you forfeit the hole and move on to the next 
one. Otherwise, once you get close enough to the hole you'll find 
yourself on the green. A message will tell you how far you have to 
putt to the hole and will ask you to select the appropriate club. If you 
overshoot while putting you will find yourself still at some distance 
from the hole and will have to carry on putting until your ball drops 
in to the hole. Your score for each hole is displayed at the end of 
each hole and a score card for all nine holes is displayed at the 
end of each round. 


Typing tips 


As well as the three user-defined graphics characters, you will also 
find a capital ‘O’ used in this program in line 1400. It marks the hole 
on the putting green. 


Subroutine structure 


20 Defines graphics characters 

130 Initialises variables 
170 Sets up and plays each hold 
670 Reports score for each hole 
765 End of game 
800 Plots balls’ flight 

1100 Lost ball routine 

1160 Displays swinging club 

1320 Putting routine 

1700 Moves cursor to position 


Programming details 


An interesting feature of this game is the use of high resolution 
graphics to make the player appear to swing his club. This is done in 
subroutine 1160 which draws a line which is the continually shifting 
radius of a circle. The flight of the ball is also plotted using high 
resolution graphics. The path that the ball appears to follow 
(subroutine 800) is a distorted parabola that always carries the ball 
in the direction of the flag. 
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Scope for improvement 


You may have noticed that the score card at the end of the game does 
not total your score nor compare it with any ideal par for the course. 
You might like to add both these features. You will need to play the 
game a few times to discover what figure to set as the par. 


Program 
10 REM Golf 


20 CH=46080 

30 FOR Q=1 TO 3 

40 READ C 

30 FOR IT=0 TO 7 

60 READ D 

70 FPOKE CH+C+I,d 

80 NEXT I 

90 NEXT Q 

100 DATA 264,8,12,14,8,8,8,8,62 

110 DATA 512,12,30,45,30,12,18,18,33 
120 DATA 280,12,30,31,446,462,40,28,24 


130 DIM T(9) 
140 XH=0$XC=0 
150 YH=03HT=0%YC=0 
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170 
180 
190 
200 
220 
230 
240 
250 
2640 
270 
300 
310 
320 
330 
340 
350 
360 
370 
380 
400 
410 
420 
430 
440 
480 
490 


FOR H=1 TO 9? 

HIRES 

FAPER Z23INK 7 

FRINT "Hole Number "3H 

FOR Z=1 Td 8 

XB=INT CRND(C1)?*80)+80 

YB=INT CRND(C1>*40)+50 

CURSET XB,YEB,0 

CHAR 35,0,1 

NEXT Z 

X= INT CRNDCL)*20)+20 

Y= INT CRND(C1L)*30)>4+120 
XT=INTCRND(C1)>*50)4+150 
YT=INTCRNDC1>*10)+20 
D=SGNCXT~-X)KSGQRCCXT$X)KOXT HX + CYT HV) KO TY 9 
CURSET XT,YT,90 

CHAR 33,0,1 

CURSET X,¥,0 

CHAR 64,0,1 

FRINT "Distance to next hole is "jZINTCD) 
INFUT "Which club CL to 89"3C 

IF Cwi1l OR C8 THEN GOTO 420 
C=(9—-C ) 

GOSUB 1140 

GOSUB 800 

Eyes 1 

D=SGNCOXT-XL)KSQR COXT-XL>KOXT-XLI4C0YT-YL2& 
CYT-YL>) 

IF De-15 THEN PRINT "You overshot~try 
another hale"tWAIT LOOsGOTO 180 

IF De12 THEN FRINT "ON THE GREEN'S 
WALT 20073G0TO 1320 

CURSET X1,Y1,0 

CURSET X,Y,0 

CHAR 64,0,0 

X=X1 

YY 

GOTO 350 

FRINT “You took "3TCH)3" strokes" 
WAIT 2ZO03FPRINT CHRS(17> 

NEXT #H 


&70 
680 
670 
700 
720 
730 
740 


730 
760 


74S 
770 
773 
780 
FFU 


800 
810 
820 
B84) 
B50 
840 
870 
880 
890 
900 
910 
920 
930 
940 
950 
940 
970 
980 
1009 
1010 
L020 
L030 
1040 
LoS0 
1070 
L080 
L090 
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CLS 

PRINT 3 PRINT 

PRINT SPCCLS)3 "This Round" 
COL#1LIROW=S3SGOSUB 1700 

FOR I=1 TO 9 

PRINT SFCCLO)>3"Hole "313 

IF T¢T)#-1 THEN PRINT " lost ball" 
GOTO 760 

PRINT " "$T¢T)3" strokes" 

NEXT I 


ROW=203COL=SiGOSUE 1700 
INFUT "Another round Y/N" SAS 
PRINT CHRé¢17> 

IF Ag="Y" THEN RUN 

CLSsSTor 


YT=CKCL+RNDCL)*. 01) 
HT = 0) 

X= 0 

Qe CYT) / OXT xX) 
VVe-VTRKCSINC45xKPI/180)> 
XC#X+3 

YCHRY+3 
ViEVTKCCOS C4 Sx T/ 180) > 
HT=HT+V¥V 

YH= Gx XH 

VVeYVU+] 

XH XHAVE 

YH=-Q*#XH 

IF XH+XC2250 THEN GOTO 1100 
IF YHtHT+YC20 THEN GOTO 1100 
IF HT>=#0 THEN GOTO 1040 
CURSET XH+xXC, YHtHT+YC, 0 
CHAR 44,0514 

WATT 3 

CURSET XH+XC, YHtHT+YC, 0 
CHAR 44,0,0 

GOTO 890 

XL=XH+XC 

YL2YHtHT+YC 

CURSET X1,Y1,0 

CHAR 446,0,1 

PLE TLFEN, 
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1100 
Lito 
1120 
1130 
L140 
1150 


1i60 
11i?70 
1180 
1190 
1200 
1210 
1220 
12230 
1240 
L250 
12460 
1270 
1280 
1300 
1310 


YHeO3Y¥T=O03YC#03 XH=0%XC=0 

PRINT “You’ve Lost your ball " 
FING 

TCH} eed 

WALT 300 

FOF SGOTO 640 


TOM) @ TCH) +L 

XS K+ 4 

YSHy+4 

FOR Sef TO -40 STEFF -S 
A=S/30xKF IL 

SX*1LOXSINCA) 
SY¥=#-1LO*xCOS CA) 

CURSET XS,YS, 0 

DRAW SX,SY,2 

IF S230 THEN WAIT 10 
IF S#-30 THEN FING 
CURSET XS,YS,0 

DRAW SX,SYs2 

NEXT $ 

FRE TURN 






1320 
1330 
1340 
1350 
1340 
1370 
1380 
1390 
1400 
1410 
1420 
1440 
L450 
1460 
1470 
1480 
1485 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
15460 
1570 
1580 
1590 


1700 
1710 
1720 
1730 
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TEXTSPRINT CHR$(17) 
PAPER 2 
XG@INTCRND(1)¥5) +1 


YG=15 
XH=INT (RND CL) X15) +10 
YH#15 

D=XH~XG 


TF D0 THEN D=ABSCD) 

PLOT XH, YH, ''O" 

FLOT xXG,YG,"@" 
ROW=223COL#1L3GOSUB 1700 

FRINT "Distance to hole is "jp 3" " 
INPUT "Which club ¢€1 to 8)"3C 
IF Cat OR C>8 THEN GOTO 1450 
TCH) eT CH) +4 
Hi=S-C+#INT CRND C1) *2) 

IF Det AND C#8 THEN Hi=1 

DD HL 

FOR Z=XG+1 TO XG+H1L 

PLOT Zz ? YH, u ® m" 

WALT 10 

FLOT Z,YH," " 

NEXT 2 

FLOT XG,YG," " 

XG#XG+H1 

IF XG=XH THEN GOTO 640 

IF D0 THEN CLO? XG=XH+D3GOTO 1380 
GOTO 1400 


DOKE #12, 48040+ROWX40+COL~1 
POKE #€248,ROW+1 

POKE #2469,COL/2 

POE TUFEN 


is 
Noughts and Crosses 


your move Cmow col>? 





Noughts and crosses is a perennial favourite because it is a simple 
game of strategy. The problem with playing it against a computer is 
that the computer can be programmed so that the person 
challenging it can never win. However, this program makes your 
Oric an opponent who can be beaten. The Oric will make sensible 
moves but is not infallible so it is worth playing on until you beat it. 
It’s actually a very good way of learning about game-playing 
strategy. 


How to play 


This game is played on a simple three-by-three grid in the 
traditional way. You have the ‘X’ and play first. To make your 
move you have to specify which square to place your mark on. Type 
in the row number first, then the column number. For example, type 
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11 to place your nought in the top, lefthand corner. If you type a 
number in the wrong format (for example 1,1) ora number that does 
not correspond to a position on the grid, (for example 41) the Oric 
won’t accept it and will beep at you. If you type the number of a 
position that is already occupied a message to that effect will be 
displayed. Once you’ve made your move the computer replies with 
its ‘O’ and you make your next move. At the end the Oric will display 
“I WIN” if it has been successful, “YOU WIN” if you’ve been 
successful and “DRAW” if it’s stalemate. The board has to be 
completely filled for the game to be over. 


Typing tips 


A capital ‘O’ is used in this program - look out for it in the CHAR 
statement in line 950. 


Subroutine structure 


20 Main play loop 

120 Evaluates computers move 
630 Tries each move 

780 Gets player’s move 

920 Displays moves 
1020 Sets up screen and plots frame 
1220 End of game 


Programming details 


The method used for the computer to play noughts and crosses is 
based on an advanced technique from artificial intelligence. The 
program only looks one move ahead when deciding its move - in 
other words it does not try to take account of the next move you'll 
make - which is why it slips up sometimes and allows you to win! 

The board is drawn in high resolution graphics and the “X”s and 
“O”s are placed on the screen using the CHAR command. The 
messages and input are all accommodated in the two text lines at the 
bottom of the high res screen. 
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Program 


10 REM Noughnts and Crosses 


20 GOSUB 1020 

30 GOSUB 780 

40 GOSUB 920 

30 GOSUB 630 

60 IF FIN=1 THEN GOTO 12640 

70 IF FIN=2 THEN GOSUB 920:GOTO 1220 
80 IF DR=1 THEN GOTO 1240 

90 GOSUB 920 

100 GOTO 30 


120 
130 
140 
150 
140 
170 
180 
190 
200 
210 


220 


230 
24) 
215 0 
240 
270 
280 
290 
300 
310 
320 
330 
340 
350 
340 
370 
380 
390 
400 
410 
430 
440 
450 
440 
470 
480 
490 
300 
310 


340 
350 
560 
70 
380 
990 
600 
610 


Noughts and Crosses 121 


FOR Z=1 TO 4 
X(Z)=0 
Y¥CZ)=0 
NEXT Z 
FOR Lei TO 3 


bossy 


S 
13 
FOR K=1 TO 3 

IF ACL,»K)#1 THEN S#S+1 

IF BCL,K)#1 THEN T#T+1 

NEXT K 

IF S=0 THEN YCT+1>#Y¥CT+1 341. 
IF T=0 THEN X(Sti)=X(S+1)41 


3 
oo 


NEXT L 
FOR L=1 TO 3 
: we 

z= 


rar Kel TO 3 

IF ACK,LO=1 THEN S#S+1 

IF BCK,L)#=1 THEN T=T+1 

NEXT K 

If S00 THEN YCT+1>=¥CT+1) 41 
IF T=0 THEN X(S+12"X(S+1) 41 
NEXT L. 

GOSUE 430 

GOSUB 330 

IF X(C4)2#1 THEN FIN@13 RETURN 
IF Y¥C4)=#1 THEN FIN®=2 


E=128xY (4) -G3KX (3) +31 KYB)“ 1EKX (2) 47KY (2 


RETURN 

T=0 

Sex 

FOR K=1 TO 3 

T=T+ACK,K) 

S=S4+B(K,K) 

NEXT K 

IF S=0 THEN X(T+1)=X¢CT+1) 41 
IF $=0 THEN Y(S+1)#Y(S+1)44 
RE TURN 

Ts 

Gx 

FOR K=1 TO 3 

T=T+A(4—K,K) 

S=xS+e C4-kK,K) 

NEXT K 

IF S=0 THEN X(T+1)=X(T+1)44 
IF T=0 THEN Y(S+1)=Y¥(S+i)41 
RETURN 


) 
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630 
640 
650 
660 
470 
680 
670 
700 
710 
720 
730 
740 
730 
760 
770 


780 
790 
800 
810 
820 
830 
840 
850 
840 
870 
880 
B90 
900 
P10 
9270 


930 
940 


940 
970 
780 
990 


Me 2354 

DR= 1 

FOR J=1 Td 3 
FOR Teil TO 3 


IF ACT, J)=1 OR BCL,J)=1 THEN GOTO 740 
DRO 

BCT, J) #41 

GOSUE 120 

TF FIN#1 THEN RETURN 

IF E>M THEN MeE ADB 
BCLs J)#0 

NEXT I 

NEXT J 

BCA, ED) = 1 

RE TURN 


REM GET INFUT 

INPUT" Your move Crow col) "jas 
IF LENCA$)<>2 THEN FING?GOTO 780 
J=VALCMIDS¢ At, 1,12) L=VAL (MID$C AS, 2,19) 
TF Lei OR T>3 THEN FING3 GOTO 780 
TF del OR J23 THEN FING3 GOTO 780 
TF ACL,J)=1 THEN GOTO 890 

IF BCL, J)=1 THEN GOTO 890 

ACL, J)s1 

REM INFUT OK 

RE TURIN 

FRINT'FPosition already occupied" 
FING 

GOTO 780 


FOR J#=1 TO 3 

FOR T#1 TO 3 

IF are Jo=1 THEN CURSET Ix€18+80,5K24, 33 
CHAR ASTO'X'"), 051 

IF pa sei THEN CURSET IK18+80,I5K24, 33 
CHAR ASCC'0"),0,1 


Ik A(T, J) +B(1, J) #0 THEN CURSET Ik18+80,0K24,3 


CHAR ASCE" "),0,) 
NEXT I 
NEXT J 
RE TURN 


1020 
1030 
1040 
1050 
1040 
1070 
1080 
1090 
1100 
1110 
1170 
1180 
1190 


1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
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DIM AC3,3) 

DIM B¢(3,23) 

DIM X(4)3DIM YC4) 

INK 7 

FAPER 0 

HIRES 

CURSET 109,10,23DRAW 0,80,2 
CURSET 127,10,2:DRAW 0,80,2 
CURSET 90,40,2:DRAW 35,0,2 
CURSET 90,44,23DRAW 55,0,2 
FIN=0 

DR=0 

RETURN 


PRINT "I WIN!!" 

GOTO 1270 

FRINT "DRAW! I" 

GOTO 1270 

FRINT "YOU WIN! !" 

INFUT "Another game Y/N" 3A 
IF Ag="Y" THEN FUN 

TEXT 


i9 
Fruit Machine 


FRU TT 
MACHINE 


You have 1 .66 to gamble 
Each spin costs -16 





Here’s a way of playing the fruit machine without spending a penny 
— your Oric gives you 100 pence to start with, takes 10 pence for 
every go, and awards you a sum between 5 pence and 50 pence every 
time you come up with a winning combination. You can give up 
while you are winning or carry on playing until you are broke. 

Although short to type in, this program includes some really 
clever graphics techniques so that you see the drum of the fruit 
machine rotate smoothly, using only BASIC. In addition, there are 
sound effects that signal winning combinations. So listen out for the 
jackpot! 


How to play 


There are four symbols in the display — cherries, banana, apple and 
bell. All the winning combinations are displayed on the screen while 
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you play. These combinations are winners wherever they occur on 
the line and not just as in the pattern suggested by the screen display 
but notice that where blanks occur you need some symbol other then 
the same type. To play just RUN and then answer “Y” every time 
you want another spin. If you do no answer “Y” then the computer 
will tell you how much money you are taking home with you. Once 
you run out of money the game is over. 


Subroutine structure 


20 Initialisation 
50 Main play loop 
180 Sets starting points of drum 
220 Spins drum 
410 Pay out routine 
470 Displays title frame 
630 Defines graphics characters in array C 
740 Jackpot routine 
800 Signals when broke 
1000 Sets up graphics characters 
2000 Win tone 


Programming details 


This program uses some very tricky programming techniques — 
which is why it achieves its effect in so short a length of BASIC. The 
patterns for each of the shapes are stored in an array, one line of dots 
to each array element. Each time the fruit machines drum is printed 
a different section of the array is used to /oad the user defined 
graphics. You can think of the section of the array that is used as 
being defined by a window which moves down by one row of dots 
each time the characters are printed. This produces the visual 
illusion of a smoothly rotating drum. 


Scope for improvement 


If you like adding graphics and sound effects to programs there is 
scope in this game. For example, you could include a surround that 
looks like a one-armed-bandit and sounds of cascading coins and 
the drum rotating. 
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Program 
10 REM Fruit Machine 
20 GOSUE 430 
30 GOSUE 470 
40 M=100 
30 GOSUB 180 
60 M=M~-10 
70 GOSUB 220 
80 GOSUE 410 
90 IF Mt=0 THEN GOTO 800 
100 MES#="You have "+STRECM)+" po" 
110 PLOT 1,18,MES$ 
115 FING 
120 PLOT 1,19,"Anmother spin Y/N"3GET As 
130 IF Ag="" THEN GOTO 120 
140 IF Ag=e"Y" THEN GOTO S30 
150 MES¢="You take home "+STRBECM) +" ply 
FLOT 1,20,MES4% 
160 WATT 100 
170 PRINT CHR$¢17)3STOF 
180 X=#INTCRND CL) K4)xK1041 
190 Y=INTCRNDC1)*4) «1041 
200 Z=INTCRND CL) *4) «1041 
Z10 RETURN 
220 REM SFIN 
230 S<INTCRND(1)*2) 41 
240 FOR I=0 TO Sxid 
250 FOR Q=0 TO 7 
240 FOKE CH+tASC C$") *84+0,00C0+X) 
270 FOKE CHEASC ("A") x84+0,CCQ+Y) 
280 FOKE CHeASCC'&")x*84+0,0°CQ+2) 
2970 NEXT Q 
300 FLOYT 7,16,"% “2 &" 
310 IF X=40 THEN X=0 
320 IF Y=40 THEN Y=0 
330 IF Z=40 THEN Z=0 
B40 X=X+L3YeYr+13 Z=Z+1 
350 NEXT I 
340 XeX-LiY2#Y¥-LiZeZ-1 
370 RETURN 


410 


$20 


430 


440 


470 
330 
340 
350 
960 
370 
380 
220 
600 
610 
620 


625 


630 
640 
650 
6460 
670 
680 
690 
700 
710 
720 


740 


790 
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T#S 

IF X=1 AND Y=1 AND Z=1 THEN GOSUB 7403 
RETURN 

IF (X#11)4+¢Y=11)4+¢€Z=11)<8-2 THEN M=M+25% 
GOSUE 2000 

IF (X#21) +¢0Y=21)+¢0Z=21)<=-2 THEN M=M+103 
GOSUB 2000 

IF (X=1)+CY=1)4¢Z=1)<=-1 THEN M=M+53 
GOSUB 2000 

RETURN 


CH=46080 

GOSUE 1000 

CLS3FRINT CHR¢17) 

FLOT S,i,"F RU TL T' 

FLOT 4,2,"M A C HIN E" 

FLOT 3,4,"You have 1.00 to gamble" 
FLOT 3,6,"Each spin costs .10" 
FLOT S,95"!' '§ '§ wins SOp" 

FLOT &,10,"@ @ ~- wins 25p" 

FLOY S,i1,'%- C C wins 10p" 

FLOYT S,12,"! ~ ~- wins Sp'"' 
RETURN 


DATA 6,10,20,36,52,43,31,4,0,0 
DATA 2,12,28,56,56,28,12,2,0,0 
DATA 12,30,30,30,30,43,63,12,0,0 
DATA 6,12,29,63,43,43,31,12,0,0 
DATA 6,10,20,36,52,63,31,6,0,0 
DIM CC48) 

FOR I#1 TO 48 

READ CiC¢T)=C 

NEXT I 

RETURN 


REM JACK 

FOR I#l TO 12 
GOSUB 2000 
NEXT I 

M=M+50 

RETURN 
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800 REM BUST 

810 FLOT 1,20,"You are BUST" 
820 WAIT 500 

830 FRINT CHR$¢17) 

840 STOF 


1000 FOR Q=0 TO 7 

1010 FOKE CH+tASC('"$")x8+Q,CCQ+1) 

1020 FOKE CH+ASCC'!")x8+Q,CCQ+1) 

1030 POKE CHtASCC'%") x8+Q,C0¢CQ+10) 
1040 FOKE CHtASC("@")x8+0,CCQ+10) 
1050 FPOKE CHHtASC(C'&")xB+0,CCQ+20) 
1060 POKE CHtASC ("LD ')*8+0,0¢06Q+20> 
1070 NEXT @ 

10?0 RETURN 


2000 MUSIC 1,5,17,0 
2010 FLAY 1,0,4,50 
2020 WAIT 50 

2030 FLAY 0,0,0,0 
2040 WAIT 10 

2050 RETURN 


20 
Bobsleigh 





In this game you have to steer your blue bobsleigh down a random 
course that winds its way downwards. You can choose whether to 
try a course that is easy to manoeuvre or one that is difficult — there 
are actually five levels of difficulty which govern the width of the 
course. If you crash you'll hear a dismal tone and that round of the 
game is over. Play this game to see how adept you are at keeping on 
course. 


How to play 


The bobsleigh starts off at the top of the course and the course 
automatically moves past it. You have to steer the bobsleigh using 
the right and left arrow keys to ensure that you do not crash into the 
edges of the course. At the beginning of the game you have to select 
the difficulty level for the game. This governs the width of the course 
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with | producing the widest, and therefore easiest, and 5 the 
narrowest, and most difficult. 


Subroutine structure 


20 Start of game 

500 Defines graphics characters and sets up colours 
1040 Prints first part of track 

1220 Main play loop 

1310 Scrolls last part of track off screen 
5000 Moves bobsleigh 
7000 Title frame 
8000 Win/lose messages and end of game 


Programming details 


The impression of the bobsleigh moving down the course is actually 
achieved by the course scrolling up the screen past the bobsleigh 
which only moves to left and right and is at a fixed vertical position. 
In line 5040 the SCRN function is used to test whether or not the 
bobsleigh has hit the side wall. This is done by detecting what 
character occupies the next printing position that the bobsleigh will 
move into. 

Notice that while the track and bobsleigh are produced using 
PLOT which doesn’t move the text cursor, each PLOT is 
accompanied by a PRINT, which does, and so causes the screen to 
scroll. 


Scope for improvement 

You might like to add a tune-playing routine to this program like the 
one given in ‘Oric Ledger’. 

Program 


10 REM Bobsleianh 


20 GOSUB 7000 


500 
S10 
520 
530 
540 
550 
60 
570 
580 
800 

1000 

1010 

1020 

1030 


1040 
1050 
1100 
L110 
1120 
1130 
1140 
1130 
1140 
1200 
1210 


1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
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CHBAS=44080 

FOKE CHEAS+ (ASC C"@'")xX8+09,16 
FOKE CHBAS+ (ASC C"@")*8+1),20 
FOKE CHEAS+ (ASC CUR") KB8+2),52 
POKE CHEAS+ (ASC C"@" )KB4+3), 42 
POKE CHBAS+ (AST C"@")KB+4),43 
FOKE CHBAS+ (ASC C"@" )xX8+5),34 
FOKE CHBAS+ CASCC"@")*8+6),15 
FOKE CHEAS+ CASCC'@") KB+7),7 

YEed 

PARER 7 

INK 0 

CLS 

PRINT CHRé C17? 5 


Xe INT CRND CL) 102415 
XB=eX+2 

FOR Y#l TO 24 
PRINTSPLOT X,¥,"I" 
FLOYT XD ¥,'i" 
X=X+ CGGNCRNDCLI-.5)) 
IF X>30 THEN X#30 
IF Xe. THEN X=] 
NEXT Y 

FLOT XB,YB,'"@" 

WAIT 100 


FOR Z#1 TO 100 
X#X+SGNCRND CL) ~.5) 
IF X*34 THEN X#31 
IF X41 THEN X#4 
PLOT X,26,"1" 

PLOT X+D,26,"1" 
PRINT 

GOSUB 5000 

NEXT Z 
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1310 
1320 
1330 
1340 
1350 
1360 


o000 
3005 
3010 
S020 
8030 
3040 
3050 


s060 


7000 
7010 
7020 
7030 
7035 
7040 
7050 
7060 
7065 
7070 
7080 
7090 
7100 


8000 
8010 
8100 
8500 
8510 
7000 
9010 
9020 
7030 
9040 
9050 
9060 


FOR Z=1 TO 26 
PLOT 1,26,°" 
PRINT 

GOSUE 5000 
NEXT Z 

GOSUE 8000 


AS=KE Y $ 

IF Ag=""" THEN A=0 ELSE A=ASCCAS) 

PLOT AByXe=Le? 

IF A=8 THEN XB=XB-1 

IF A=9 THEN XB=XB+1 

IF SCRNCXB,YB)=49 THEN EXFLODE:GOTO 8500 
FLOT XE,YB,"@@" 

FRE TURN 


INK 0 

FAFPER 7 

CLS3 PRINT 

FRINT SPCC1O0;3;"B OB SLE ICG H" 

FOR I=1 TO S&PRINTINEXT I 

FRINT SFCC4)$"You must steer your bobsleigh! 
FRINT SFCC4) $"down & dangeraus course" 
FRINT SFCC4)3"Select the danger level" 
FOR L=1 TO 1LOSPRINTINEXT I 

INFUT “FROM 1 (SAFE) TO S CLETHAL?) "3D 
IF Del OR DeS THEN GOTO 7070 

RE TURN 


WAIT 3003CLS 

FRINT "CONGRATULATIONS, YOU MADE IT" 
GOTO 97000 

WATT 300:3CLS 

FRINT "YOU CRASHED" 

PRINT CHRS¢17) 

INFUT "ANOTHER RUN Y/N" SAG 
IF AG$="Y" THEN RUN 

INK 0 

FAPER 7 

CLS 

END 


21 
Oric Oracle 


Tell me about your problems 


I have an awkward computer 
Do computers worry you ? 

Not always 
Give me a particular example 
It crashed my game 


Your game? 





Do you ever find yourself ta/king to your Oric? Well, if you do you 
may be disappointed that it never answers back. This program, 
however, changes all that and gives your Oric the chance to start a 
conversation with you. Although it may not be able to rival the 
agony aunts of the glossy magazines, your Oric is anxious to hear 
about your problems - and has some comments to offer. 

Coping with the syntax of the English language is one of the very 
complicated problems with which this program has to contend. 
Programs like this one have been developed in order to extend our 
knowledge of how language works and how humans identify the key 
components of conversations. While these serious purposes are 
usually the province of artificial intelligence it is possible to have a 
good deal of fun trying to conduct a dialogue with your Oric. 
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How to use this program 


The computer opens each conversation in the same way - by inviting 
you to tell it your problems. You can give any reply that you wish to 
and after a few moments delay your Oric will respond. Try to say 
more than just “Yes” or “No” when you make further responses but 
equally, don’t say too muchata time. If you type about a lineful each 
time you ought to be able to keep a reasonable conversation going. 


Typing tips 


As the computer has to match your sentences against its vocabulary 
it is also very important to be careful about your spelling. If you type 
in either the initial program or subsequent responses with 
misspellings the computer won’t recognise your messages and you 
won’t receive any sensible answers. The apostrophe is the only 
punctuation mark that should be used in dialogues with the Oric. 

This is by far the longest program in this collection and it is an 
especially trying one to type in because of all its long lines and 
frequent repetition. If you want a short cut to using it remember that 
there are cassette tapes available. 


Running this program on a 16K Oric 


This is the only problem in this book that does not fit comfortably 
into a 16K Oric. But don’t panic — there is an easy way around the 
problem. When you get an “OUT OF MEMORY ERROR?” while 
entering the program, type “GRAB” in direct mode (that is, without 
a line number) then add 


5 GRAB 


to the program. The GRABcommand allows the program to use the 
memory normally set aside for the high resolution graphics screen. 


Subroutine structure 
15 Main program loop 


100 Initial message and set up 
400 Input human’s sentence 
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560 Divides sentences into words 
650 Changes tense/ pronouns 
820 Tense/pronouns data 
920 Finds keywords in sentence 
1070 Keywords data 
1250 Keyword responses 
2210 Prints computer’s response 
2270 Requests sensible input 


Programming details 


This program works by taking a sentence and splitting it down into 
individual words and then responding according to a list of 
keywords that it searches for in each sentence. So if, for example, 
your sentence contains the word ‘why’, the response ‘Some questions 
are difficult to answer’ will always be given by the computer. When 
the computer fails to find a specific reply to a sentence one of a 
number of responses is selected at random. 

Although this technique sounds simple, the actual details of the 
program are really quite tricky as, amongst other things, the 
computer has to deal with tense changes and with the syntax of 
pronouns. It is therefore quite a difficult program to write or to 
modify extensively. Equally, despite the apparent simplicity of its 
underlying technique, it succeeds in making plausible responses ona 
surprising number of occasions. 


Scope for improvement 


If you wish to add to the list of keywords that the computer 
recognises, you need to notice how, in subroutine 1070, the 
keywords are paired with the line number of the subroutine that 
responds to them. Also it is important to be aware of the priorities 
assigned to each keyword. If two keywords are present in a 
sentence then the one first in the list will be acted upon. 


Program 


10 REM Oric Oracle 
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15 
20 
30 
40 
50 


60 


&& 


70 
80 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
255 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 


370 
380 
390 
399 
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DIM W(20,2) 

GOSUE 100 

GOSUE 400 

GOSUE S340 

GOSUE 920 

IF NM“>0 THEN ON NM GOSUB 1250,1270,1290, 
1310,1730,1780,14690,1710,1610 


) IF NM&>0 AND NM>9 THEN ON NM-9 GOSUB 1380, 


2140,1330,1470,1900,2040,1800 

TF NM&>0 AND NM2146 THEN ON NM~-14 GOSUE 
1820,1840,1330,1880,1840 

GOSUE 2210 

GOTO 30 


TEXTS CLS?PRINT CHR (20) 

FRINTSFRINT "Hil My mame is Oric" 
FRINT 

FRINT "XI would like you to talk to me" 
FRINT “but I don’t have ears so will" 
FRINT “you type sentences om my" 
FRINT "“kKeyboard" 

PRINT 

FRINT “Don’t use amy punctuation apart" 
FRINT "from spostrophies which are" 
FRINT “important” 

PRINT 

FRINT "When you have finished typing" 
FRINT "press RETURN" 

FRINT 

FRINT "Tell me about your problems" 
FOR Tel TO LOtFRINTINEXT I 

Feges!! hi 

Mes! u 

Debs'"! wu 

DIM N#¢3) 

Né€Cl)="Flease ga on" 

N$(2)2"T%m mot sure I understand you" 
N#$¢3)="Tell me more" 

DIM I#¢3) 

T#(ld="Let’s talk some more about your" 
T#(2)="Earlier you spoke of sour! 
Lé¢3)="Does that have anything to do 
with your" 

DIM J#¢Z) 

J#CLI="Are you just beima negative" 
Jé(2)="T geal 

RETURN 
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400 Age" 

410 EéEKEY $ 

415 IF Bé="" THEN GOTO 410 

420 IF ASC(CB$)=13 THEN PRINT? GOTO 480 


430 


44g 
450 
460 
470 
430 


481 
42 
49% 


48s 
490 


00 
810 
20 
S40 
Seo 
590 
600 


410 


TF ASC CE$3=127 AND Ageo'' THEN 

A$=LEFT& CAS, LEN CA$)~ rer :SOTO 

IF ASCCE$)232 OR ASCCE$)>1246 THEN GOTO 400 
AS=AS+t HS 

FLOYT 2,25,A¢e" " 

GOTO 410 

TF RIGHTé¢CA$,1)=" ' THEN 

A$=LEF TSC AK, LENCABI-1L>)°COTO 480 

FOR Ted TO LENCA$> 

A@ASCCMID$ At,I,1)> 

TF APL AND AS64 THEN AS=LEFT#& (A$, I-1)+ 
CHR CA+32)4+MTID$ CAS, T+13 

NEXT I 

IF A¢=R& THEN PRINT "You’re repeating 
yOUrSe LPI SPRINT GOTO 400 


Fa £) tf 

IF Ag="" THEN GOTO 400 
RE TURN 

REM FIND WORDS 

Nes (1 

Ete 0 


FOR T=1 TO LEN(A$) 

IF (MID$(A$,1,1)#" " OR MID$(A$,T,12=",") 
AND E=0 THEN B=1 

IF CéMIDS(A$,I,1)<2" " AND MID$CAS,I,1)<>" 
AND Eie1) THEN WN, 1)=IiB=2 

IF (MEDS(A$,2,1)=" " OR MIDSCA$,T,1L)=",") 


AND Ee2 THEN WON, 2)#I~ “LSN=N+1 

3 IF (MID$¢At$,L0,19=" " OR MIDS$CA$,T,1)=",") 
AND Be2 THEN b= 0 
NEXT I 


WON, 2)=LENCAS) 


my 
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650 
660 
670 
680 
670 


700 
710 


720 
730 
740 
730 
740 
770 
780 
790 
800 
810 


820 
830 
840 


840 
870 
880 
890 
900 
910 


920 
930 
940 
950 
940 


970 

980 

990 
1000 
1010 
1020 
1030 
1040 
1050 
1040 


FOR T=1 TO N 

RESTORE 

READ ES 

IF B¢="s" THEN GOTO 800 

IF B¢>MID$ (A$, (WCT, 12), (WOLD, 2)-WCT,1> +19) 
THEN GOTO 780 

READ C$ 
A$=LEFT#& CAS, (WOT, 1)-1))+C$+ 
RIGHT$ (A$, CLENCA$)-WCT,2))) 
W(T, 2) =WCL,2)+LEN(C$)-LENCES) 
FOR J=I+i TO N 

WCd,2 WO, 2)+LEN(C$)~-LENCE S$) 
WJ, 1lIHWCI,1)+LEN(C$)-LEN CES) 
NEXT 

GOTO 800 

READ ES 

GOTO 670 

NEXT I 

RE TURN 


DATA Vag, gourmet, il, you! 
DATA "mum", "mother", "dad","father" 

DATA "dpeams","dream","you", "ik", "mel", "youll 
DATA "your", "myk"', "myself", "yoursel fx" 

DATA “yourself', "Myselfx","i’m", "you rex" 
DATA "you’re',"i’m","am","arex" 

DATA "i’m","sou/’re" 

DATA "were","was" 

DATA "srea","am" 

DATA Heth Wegit 


RESTORESFOR T=1 TO 343READ QS3NEXT TI 
READ Eb yNM 

IF B¢="s" THEN GOTO 1010 

Te1 

IF MIDS(A$,WCT, 19, (WOT, 29-WOT, Ltd) OBS 
THEN GOTO 990 

Té=RIGHT$ CA$,LENCAG$)~CWCT,2))) 
RETURN 

T=ItLiIF I<=N THEN GOTO 9640 

GOTO 930 

NM=0 

IF M$2i>"" THEN GOTO 1050 

F¢=N$ CINTCRNDCL)*3)4+1) 

RETURN 

P$=I$ CINTCRND CL) 3) +1)+M8 

RETURN 
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1070 DATA "“computer",1,"machine",1,"program',l1 
1080 DATA "like",Z,"same",2,"alike',2 
1090 DATA "if",3,"everybody",4 

1100 DATA "can",3,"certainly!,é 

1110 DATA "hnow",7,"because",8 

1120 DATA "“always",? 

1130 DATA "everyone'",4,""mobody",4 
1140 DATA "was",10 

L150 DATA "ix',41 

1140 DATA "mo",12 

1170 DATA “yourK'",13 

1180 DATA "you’rexk"',14,"youxK", 15 

1190 DATA "“hello',16."maybe",17 

1200 DATA "myx",18,"mo",19 

1210 DATA "yes", 46,"why'", 20 

1220 DATA "perhaps",17,"so0rry", 21 
1230 DATA "what", 20 

1240 DATA "s",0 
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1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 


1355 


1360 
1370 
1380 
1390 
1400 
L410 


1420 


1430 
1440 


1450 


1440 
1470 
1480 
1490 


Fé$="Do computers worry you ?" 

RE TURN 

Fé="Trm what way ?' 

RETURN 

F$="Why talk of possibilities" 

RETURN 

Fé="Realily "+ibet er 

RETURN 

IF I=N THEN GOTO 1360 

T=I+1 

IF MID#cA$,WCT, 1), (WOLD, Z)-WOL,2)-WOL, 1) 419) 
="one'" THEN Bé=E6+" one" 

IF MID$CA$,WCT,1),¢CWCL,2)-WOL,2)-W(OL, 1941) 
="one'" THEN GOTO 1310 

$= Jb CINTCRND CL) *X2) +41) 

RETURN 

IF IT=N THEN GOTO 2270 

LeI+1 

IF IsN THEN COTO 1020 

IF MED#CA$,WCLT, 1) WEL, 2d-WOD, Le 19 So youK" 
THEN GOTO 1440 

Fé="What if you were "+RIGHT#$¢(A$,LEN(CA$) 
“WCET, 2) 94" 2" 

RETURN 

IF MIDS A$ ,WCLT, 1), OWED, Z-WOL, Led eK" 
THEN GOTO 1020 

F¢é="Would you like to believe I was " 

+RIGHT#é CAB, CLENCA$)~CWCT,139419)) 

RETURN 

T=T+1 

IF IsN THEN GOTO 13640 

TF MIDS CAS ,WCT, 19, CWOL, Z2-WCOT, 19419) ="mMother" 
THEN GOTO 1590 

IF MID$CA$,WCT, 1), CWOL, Z2-WOL, 1941922" father" 
THEN GOTO 1590 

IF MID$¢CA$,W(T,1),CWOL,2Z)-WOT, 141902 "sister" 
THEN GOTO 1590 

IF MIDS (CAS ,WCT, 1), CWCOL, 2)2-WOT,1)24190="brother! 
THEN GOTO 1590 

IF MIDS ¢CA$,WCT, 19, OWCOL, 22-WOL, 1L9¢19 = "wife" 
THEN GOTO 1590 

IF ee eg ee ee. ae 
THEN GOTO 159 

IF MIDSé¢ At, ee 1>,CWCOL, 2)-WCOL, 12 4+1))= 
"children" THEN GOTO 1590 


1560 
13570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
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TF LENCT$)210 THEN MéssT$+"' 

Be" your UsTel pe 

RETURN 

F¢é="Tell me more about your family" 

RETURN 

F$="Give me @ particular example" 

RETURN 

TeLet 

IF IoN THEN Fé="Am IT what P'S RETURN 

F$e"Why are you interested im whether I am " 


+RIGHTé&CA$,WCT, L941) 


1655 
16460 
1670 


1480 
14690 
1700 
1710 
1720 
1730 
1740 
1730 


1735 
1760 
1770 


1780 
1790 
1800 


1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 


FéePé+' or mote 

RETURN 

Fé="Do you think you gre "+RIGHT#é$ (At, LEN CAS? 
~WCT,2)) 

RETURN 

Fé="Why do you ask ?" 

RETURN 

Fg="Tell me any other reasons" 

RETURN 

Leet d 

TF YoN THEN F="what ?' Ss RETURN 

IF MID#tCAS WOT, 19 WOLD, 22-WOL, Lot Lee aK 
THEN GOTO 1760 

Pé="Do you believe Iocan "+RIGHT#CACLEN CAS) 
“WOLD, 2) 2904+" P'S RETURN 


THEN GOTO 1010 

Pé="Do you believe you can "+RIGHTS CAs, 
LEN CA$)@-WCOT, 2) +" P'S RETURN 

F$="You seem very positive" 

RETURN 

F$="F leased to meet you - let’s talk sbout 
your problems" 

RETURN 

Fé="Could you try to be more positive" 

RE TURN 

Pé="Why are you concerned about my "+T$ 
RETURN 

Fé="You don’t have to apologise to me" 
RETURN 

F¢="Some questions are difficult to angswerese" 
RE TUPREN 

T=T+1 

TF YN THEN GOTO 1020 
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1920 
1930 
1940 
1950 
1940 
1970 
1980 
1990 
2000 
2010 
2020 
2025 
2030 
2040 
20550 
2040 
2070 
2080 


2090 


2096 
2100 


2105 


2110 


Fé="T am sorry to hear that you are " 
+MIDGCA$,WOT, 1), (WOLD, 2)-WCOD, L419) 

TF MID#¢CA$,WCOT,1)2,¢°0WCL, 2)-WCOD, 19419002 "sadi" 
THEN RETURN 

IF MID#¢(A$,WCT,19,CWCOL, 2)-WCOT, 19419902" unhappy" 
THEN RETURN 

IF MID#$CA$,WCT, 1), (WOLD, 2)-WCOL, 12419) 
="dapressed' THEN RETURN 

TIF MIDS$CA$,WCT, 1), ¢CWCL, 2.-WOL, 12419002" sick" 
THEN RETURN 

Fé="How have I helped you to be " 
+MIDECAS,WCT, 1), CWOL,Z)-WOT, 19419) 

IF MID$CAS WOT, 19, ¢°0WCL, Z)-WOL, 10419002" happy" 
THEN RETURN 

IF MID#CA$,WCOT,1>,¢°W0L,2)-WCL,1)4+19)="elated" 
THEN RETURN 

IF MID#(CA$,WOT,1>,¢CWOL, 2Z)-WCL, 1419 )="glad" 
THEN RETURN 

IF MID#(A$,WOT, 1), ¢W0L,2)-WOL, 1941) )="better" 
THEN RETURN 

F$e2"Ts it because you are "+MIDé$CA$,WCT,1), 
WOT, 2)-WCT, 1341) 

F$ePé+" you would like to talk to me ?" 
RETURN 

IF I=1 THEN GOTO 20640 

IF MID#¢A$,WCT-1,1), (WOT1,2)-WCOI-1,0)41)9) 
x"apex'" THEN GOTO 1670 

LD 

IF I=N THEN GOTO 2270 

IF MID#(A$,WCT, 1), OWL, 2)-WOL, 141902" arex" 
THEN GOTO 1900 

IF MID#$CA$,WCT, 1), (WOLD, 2)-WCOT,194199="want" 
THEN GOTO 2096 


i IF MIDS$CA$,W(T,1), (WOT, 2)-WOT, 141909025 "need" 


THEN GOTO 2100 

Pé="What would it mean if you got " 

+RIGHTS# CA$,LENCA$I-WCOL,2)) SRETURN 

IF MID#(C AS ,WCL, 1), OWCL, 2d-WOL, Ltd 2 think" 
THEN GOTO 2110 

Fée2"Do you really think so"? RETURN 

IF MID#¢CA$,WCT, 19>, OWED, 2d)-WOL, L419) "ean t" 
THEN GOTO 21164 


5 IF MIDS CAS ,W(T, 1), (WOT, 2)-WCL, 1941) <2 "cannot" 


THEN GOTO 2120 
Fé="How do you know you can’t"! 
+RIGHT # CA$,LENCA$)~WCL,2)) RETURN 


2120 


2130 
2140 
2145 
2150 


2155 
2160 
2170 
2180 


2185 
a.70 


2200 


2210 
2220 
2230 
2240 
2250 


2260 


2270 
2280 
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IF MID#¢A$,WCL,1),CWNCL, Z2-WOL, 12419022 "feel" 
THEN GOTO 1020 

F¢="Tell me more about how you feel" S RETURN 
TF Ln-1<1 THEN GOTO 2160 

TeI~1 

IF MID#CA$ WOT, 1), (WOLD, 2)-WOL, 104190902" 3am" 
THEN GOTO 1630 


Tel+4 
LeI+d 

IF I>N THEN F$="What am Io?" S RETURN 

IF MID$(A$,W(I,1),W(L,2)-W(L, 1) +1) 2" am" 


THEN GOTO 2190 

Pé="Why do you think soa ?'S RETURN 

Pé="Ts that what you think of me ?'S RETURN 
RETURN 


FOR J=1 TO LENCFS$> 

IF MID$(F$¢,J,1)="x*" THEN GOTO 2240 
FRINT MIDS(F$,J,193 

NEXT J 

PRINT? PRINT $ PRINT 

RETURN 


FPé="FLEASE TALK SENSTIBLY !" 
RETURN 
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21 QUALITY GAMES FOR YOUR ORIC! | 


| Here is a compendium of twenty-one exciting games with ) 
something for all the family. The selection comprises a - 

combination of old favourites such as Alien Invaders, | 

Squash and Bobsleigh, and exciting new ideas including | ; 
Commando Jump, Across the Ravine and Sheepdog Trials. | 
There are also computer implementations of the 
traditional pastimes, Noughts and Crosses and Dice, a 
challenging board game, Capture the Quark, and a 
conversational game in which you can talk to your Oric. 

| Full use is made of the Oric's colour graphics, its sound , 

and its special facilities. All the programs are fully tested 
and crash-proofed, and listed straight from working } 
versions. 


The special feature of this book is that it aims to develop 
your own programming techniques at the same time as 
providing you with a selection of high quality BASIC 
games. To this end each program is well documented with 
a clear outline of its subroutine structure and an 
explanation of the special techniques employed. This 

book not only shows you how to play the games and enjoy 
them, it enables you to improve your BASIC programming 
by letting you in on ‘trade secrets’ professional 
programmers use. 
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